From 6b77223ce55bfc487ca99b6c3fcb861f6923d74c Mon Sep 17 00:00:00 2001
From: Radek Czajka <radekczajka@nowoczesnapolska.org.pl>
Date: Wed, 23 Apr 2014 12:26:20 +0200
Subject: [PATCH 1/1] Fix font-optimizer for Perl 5.18.

---
 librarian/font-optimizer/Font/Subsetter.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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