diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-19 06:33:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-19 06:33:49 +0000 |
| commit | 8058d7abf600e878367b422ec507695e4ac6f25a (patch) | |
| tree | 532a05dfd24d4fd343743294e4c48d2112ceba1f /lib/charnames.pm | |
| parent | 66558a1012141f943df65dc612575097c38aed90 (diff) | |
| download | perl-8058d7abf600e878367b422ec507695e4ac6f25a.tar.gz | |
rename byte:: to bytes::
p4raw-id: //depot/perl@5133
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; |