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