diff options
Diffstat (limited to 'lib/charnames.pm')
| -rw-r--r-- | lib/charnames.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index 817b4c559e..ff9d5ea891 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -30,8 +30,8 @@ sub charnames { die "Unknown charname '$name'" unless @off; my $ord = hex substr $txt, $off[0] - 4, 4; - if ($^H & 0x8) { # "use byte" in effect? - use byte; + if ($^H & 0x8) { # "use bytes" in effect? + use bytes; return chr $ord if $ord <= 255; my $hex = sprintf '%X=0%o', $ord, $ord; my $fname = substr $txt, $off[0] + 2, $off[1] - $off[0] - 2; |