Allow latin1 in EXIF info.
authorSteinar H. Gunderson <sesse@debian.org>
Mon, 26 Mar 2007 18:36:43 +0000 (20:36 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Mon, 26 Mar 2007 18:36:43 +0000 (20:36 +0200)
perl/Sesse/pr0n/Common.pm

index 9e56cee8397834b65946cba9bfe32a3584260b26..da8173f8bbd04d2fd881bf55b97666c040d2efc0 100644 (file)
@@ -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: $!";
        }