X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=lib%2FUCW%2FGallery%2FHashes.pm;h=f27241f9dc7727d1261eb03a6b95ccc169522607;hb=HEAD;hp=d0414e9c8e652ab805d1fe93e2c356168ea8009c;hpb=d94da8d601fa080700f1d610089ec5f602d5ee88;p=gallery.git

diff --git a/lib/UCW/Gallery/Hashes.pm b/lib/UCW/Gallery/Hashes.pm
index d0414e9..f27241f 100644
--- 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);