X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4db6b29c6105b1db1b04d9177eab261d2d2e57f4..466e0b0bee6b61530b0be73a394df19828bf24f9:/Encode/Wingdings.pm

diff --git a/Encode/Wingdings.pm b/Encode/Wingdings.pm
index df06b86..cb553dd 100644
--- 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;
 }