From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 4 Feb 2000 04:56:09 +0000 (+0000)
Subject: another HINT_BYTE victim
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c6664052fe5df4f48aca49de15d21ae45b49e89;p=p5sagit%2Fp5-mst-13.2.git

another HINT_BYTE victim

p4raw-id: //depot/perl@4971
---

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 59350b2..817b4c5 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;