From 9f211c59da85613e88c6234a53bbec9c6c9a6ee9 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Mon, 26 Mar 2007 20:36:43 +0200
Subject: [PATCH] Allow latin1 in EXIF info.

---
 perl/Sesse/pr0n/Common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 9e56cee..da8173f 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -211,7 +211,7 @@ sub update_image_info {
 
 	for my $key (keys %$info) {
 		next if ref $info->{$key};
-		$q->execute($id, $key, $info->{$key})
+		$q->execute($id, $key, guess_charset($info->{$key}))
 			or die "Couldn't insert EXIF information in database: $!";
 	}
 
-- 
2.39.2