git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
package Encode::Wingdings;
use 5.014;
+no strict 'refs';
use warnings;
use utf8;
use warnings;
use utf8;
@@
-23,7
+24,7
@@
sub decode ($$;$) {
my ($self, $input, $check) = @_;
my $output = '';
for (unpack 'C*', $input) {
my ($self, $input, $check) = @_;
my $output = '';
for (unpack 'C*', $input) {
- $output .= $_ < 33 ? chr : $
MAP
[$_ - 33];
+ $output .= $_ < 33 ? chr : $
{ref($self).'::MAP'}
[$_ - 33];
}
return $output;
}
}
return $output;
}