gal-mj-digikam: Use image title

[gallery.git] / lib / UCW / Gallery / Hashes.pm

diff --git a/lib/UCW/Gallery/Hashes.pm b/lib/UCW/Gallery/Hashes.pm
index d0414e9c8e652ab805d1fe93e2c356168ea8009c..f27241f9dc7727d1261eb03a6b95ccc169522607 100644 (file)
--- a/lib/UCW/Gallery/Hashes.pm
+++ b/lib/UCW/Gallery/Hashes.pm
@@ -3,11 +3,11 @@
 
 package UCW::Gallery::Hashes;
 
-use strict;
-use warnings;
+use common::sense;
 
 use File::stat ();
 use Digest::SHA;
+use Encode;
 
 sub new {
        my ($class, $gal) = @_;
@@ -38,7 +38,7 @@ sub hash_image {
 
        my $st = File::stat::stat($path) or die "Cannot access $path: $!\n";
        my $key_text = join(":", $path, $st->dev, $st->ino, $st->mtime);
-       my $key = Digest::SHA->sha1_base64($key_text);
+       my $key = Digest::SHA->sha1_base64(Encode::encode_utf8($key_text));
 
        if (!exists $cache->{$key}) {
                my $sha = Digest::SHA->new(1);