Fix font-optimizer for Perl 5.18.

[librarian.git] / librarian / font-optimizer / Font / Subsetter.pm

diff --git a/librarian/font-optimizer/Font/Subsetter.pm b/librarian/font-optimizer/Font/Subsetter.pm
index cd1c40c..7aa60dc 100644 (file)
--- a/librarian/font-optimizer/Font/Subsetter.pm
+++ b/librarian/font-optimizer/Font/Subsetter.pm
@@ -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);