From 6b77223ce55bfc487ca99b6c3fcb861f6923d74c Mon Sep 17 00:00:00 2001 From: Radek Czajka Date: Wed, 23 Apr 2014 12:26:20 +0200 Subject: [PATCH] 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