From: Steinar H. Gunderson Date: Mon, 26 Mar 2007 18:36:43 +0000 (+0200) Subject: Allow latin1 in EXIF info. X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=9f211c59da85613e88c6234a53bbec9c6c9a6ee9 Allow latin1 in EXIF info. --- 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: $!"; }