From: Radek Czajka <radekczajka@nowoczesnapolska.org.pl>
Date: Wed, 23 Apr 2014 10:26:20 +0000 (+0200)
Subject: Fix font-optimizer for Perl 5.18.
X-Git-Tag: 1.7~100
X-Git-Url: https://git.mdrn.pl/librarian.git/commitdiff_plain/6b77223ce55bfc487ca99b6c3fcb861f6923d74c?ds=inline

Fix font-optimizer for Perl 5.18.
---

diff --git a/librarian/font-optimizer/Font/Subsetter.pm b/librarian/font-optimizer/Font/Subsetter.pm
index cd1c40c..7aa60dc 100644
--- a/librarian/font-optimizer/Font/Subsetter.pm
+++ b/librarian/font-optimizer/Font/Subsetter.pm
@@ -1493,7 +1493,7 @@ sub subset {
 
     $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);