Fix font-optimizer for Perl 5.18.
authorRadek Czajka <radekczajka@nowoczesnapolska.org.pl>
Wed, 23 Apr 2014 10:26:20 +0000 (12:26 +0200)
committerRadek Czajka <radekczajka@nowoczesnapolska.org.pl>
Wed, 23 Apr 2014 10:26:20 +0000 (12:26 +0200)
librarian/font-optimizer/Font/Subsetter.pm

index cd1c40c..7aa60dc 100644 (file)
@@ -1493,7 +1493,7 @@ sub subset {
 
     $self->{features} = $options->{features};
 
 
     $self->{features} = $options->{features};
 
-    my $uid = substr(sha1_hex("$filename $chars"), 0, 16);
+    my $uid = substr(sha1_hex(encode_utf8("$filename $chars")), 0, 16);
 
     if (not $self->{font}) {
         $self->preload($filename);
 
     if (not $self->{font}) {
         $self->preload($filename);