This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
another HINT_BYTE victim
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 4 Feb 2000 04:56:09 +0000 (04:56 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 4 Feb 2000 04:56:09 +0000 (04:56 +0000)
p4raw-id: //depot/perl@4971

lib/charnames.pm

index 59350b2..817b4c5 100644 (file)
@@ -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;