From: Jan Szejko <janek37@gmail.com>
Date: Tue, 16 May 2017 13:14:01 +0000 (+0200)
Subject: fix for new perl (redundant defined)
X-Git-Tag: 1.7~53
X-Git-Url: https://git.mdrn.pl/librarian.git/commitdiff_plain/abbf124db7e7957dd12da2b050faa0fd020dc10d

fix for new perl (redundant defined)
---

diff --git a/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/Name.pm b/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/Name.pm
index 4b1447a..144e926 100644
--- a/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/Name.pm
+++ b/librarian/font-optimizer/ext/Font-TTF/lib/Font/TTF/Name.pm
@@ -142,7 +142,7 @@ sub read
         {
             if ($pid == 1 && defined $apple_encodings[0][$eid])
             { $dat = TTF_word_utf8(pack("n*", map({$apple_encodings[0][$eid][$_]} unpack("C*", $dat)))); }
-            elsif ($pid == 2 && $eid == 2 && defined @cp_1252)
+            elsif ($pid == 2 && $eid == 2 && @cp_1252)
             { $dat = TTF_word_utf8(pack("n*", map({$cp_1252[0][$_]} unpack("C*", $dat)))); }
             elsif ($pid == 0 || $pid == 3 || ($pid == 2 && $eid == 1))
             { $dat = TTF_word_utf8($dat); }
@@ -185,7 +185,7 @@ sub out
                         { $str_trans = pack("C*",
                                 map({$apple_encodings[1][$eid]{$_} || 0x3F} unpack("n*",
                                 TTF_utf8_word($str_trans)))); }
-                        elsif ($pid == 2 && $eid == 2 && defined @cp_1252)
+                        elsif ($pid == 2 && $eid == 2 && @cp_1252)
                         { $str_trans = pack("C*",
                                 map({$cp_1252[1][$eid]{$_} || 0x3F} unpack("n*",
                                 TTF_utf8_word($str_trans)))); }
@@ -292,7 +292,7 @@ sub is_utf8
 {
     my ($self, $pid, $eid) = @_;
 
-    return ($utf8 && ($pid == 0 || $pid == 3 || ($pid == 2 && ($eid != 2 || defined @cp_1252))
+    return ($utf8 && ($pid == 0 || $pid == 3 || ($pid == 2 && ($eid != 2 || @cp_1252))
             || ($pid == 1 && defined $apple_encodings[$eid])));
 }