charset: encode webdings font

[sheet.git] / Encode / Wingdings.pm

diff --git a/Encode/Wingdings.pm b/Encode/Wingdings.pm
index df06b86e32f2acb0880447b5dca6c15b0a938dff..cb553dd1e459a8002226f12ba3273f869fd7dbb2 100644 (file)
--- a/Encode/Wingdings.pm
+++ b/Encode/Wingdings.pm
@@ -1,6 +1,7 @@
 package Encode::Wingdings;
 
 use 5.014;
+no strict 'refs';
 use warnings;
 use utf8;
 
@@ -23,7 +24,7 @@ sub decode ($$;$) {
        my ($self, $input, $check) = @_;
        my $output = '';
        for (unpack 'C*', $input) {
-               $output .= $_ < 33 ? chr : $MAP[$_ - 33];
+               $output .= $_ < 33 ? chr : ${ref($self).'::MAP'}[$_ - 33];
        }
        return $output;
 }