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-Url: https://git.mdrn.pl/librarian.git/commitdiff_plain/84e70971964e9ead7ee75ea37a404d01666a1f98?ds=sidebyside

Fix font-optimizer for Perl 5.18.

(cherry picked from commit 6b77223)
---

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);