diff options
| author | Philip Newton <pne@cpan.org> | 2002-04-01 10:12:01 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 13:49:57 +0000 |
| commit | d7d589a8376c6fa7c8513aadcc026a8b6d244543 (patch) | |
| tree | f7948d6f500d9b4137ec6871691e6c56ae67fb1a /lib/charnames.pm | |
| parent | 59910836e52b62d05b36c101c1adb9bf8756f483 (diff) | |
| download | perl-d7d589a8376c6fa7c8513aadcc026a8b6d244543.tar.gz | |
Re: Change 15637: Behaviour (make viacode 0xFFFE to return BYTE ORDER MARK,
Message-ID: <63ufauo0nrvcgmj6o3u1fjaf1t787a5l1n@4ax.com>
p4raw-id: //depot/perl@15654
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 80f31e7eba..3209f29fb0 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -55,7 +55,7 @@ sub charnames if ($name eq "BYTE ORDER MARK") { $fname = $name; - $ord = 0xFFFE; + $ord = 0xFEFF; } else { ## Suck in the code/name list as a big string. ## Lines look like: @@ -208,7 +208,7 @@ sub viacode if ($txt =~ m/^$hex\t\t(.+)/m) { return $viacode{$hex} = $1; - } elsif ($hex eq 'FFFE') { + } elsif ($hex eq 'FEFF') { return $viacode{$hex} = "BYTE ORDER MARK"; } else { carp "Unknown charcode '$hex'"; |