diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-04 04:56:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-04 04:56:09 +0000 |
| commit | 9c6664052fe5df4f48aca49de15d21ae45b49e89 (patch) | |
| tree | e1160aaf43a3b2938762bc2d651df67b6ef6c655 /lib | |
| parent | 354992b151c6d0f4f02b9e65e8ba749a959e700d (diff) | |
| download | perl-9c6664052fe5df4f48aca49de15d21ae45b49e89.tar.gz | |
another HINT_BYTE victim
p4raw-id: //depot/perl@4971
Diffstat (limited to 'lib')
| -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; |