diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-02 02:14:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-02 02:14:46 +0000 |
| commit | bfa383d613055a7a37cd2a7c710949ec437a40af (patch) | |
| tree | d3fc292df73b7f28b68385797d64c34e59c7457d /lib/charnames.pm | |
| parent | ef54fa25bf4f09581f3509c1a3f2378c860a680e (diff) | |
| download | perl-bfa383d613055a7a37cd2a7c710949ec437a40af.tar.gz | |
Make encoding and charnames pragmas coexist.
p4raw-id: //depot/perl@12804
Diffstat (limited to 'lib/charnames.pm')
| -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 787ecf9b05..70d6d17f33 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -45,7 +45,7 @@ sub charnames { my $fname = substr $txt, $off[0] + 2, $off[1] - $off[0] - 2; die "Character 0x$hex with name '$fname' is above 0xFF"; } - return chr $ord; + return pack "U", $ord; } sub import { |