Allow latin1 in EXIF info.

[pr0n] / perl / Sesse / pr0n / Common.pm

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 9e56cee8397834b65946cba9bfe32a3584260b26..da8173f8bbd04d2fd881bf55b97666c040d2efc0 100644 (file)
--- 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: $!";
        }