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.t | |
| 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.t')
| -rw-r--r-- | lib/charnames.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 42c2205713..730ce1805a 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -196,7 +196,7 @@ print "ok 31\n"; print "not " unless "\N{BYTE ORDER MARK}" eq chr(0xFFFE); print "ok 32\n"; -print "not " unless "\N{BOM}" eq chr(0xFFFE); +print "not " unless "\N{BOM}" eq chr(0xFEFF); print "ok 33\n"; { @@ -217,6 +217,6 @@ print "ok 33\n"; print "ok 37\n"; } -print "not " unless charnames::viacode(0xFFFE) eq "BYTE ORDER MARK"; +print "not " unless charnames::viacode(0xFEFF) eq "BYTE ORDER MARK"; print "ok 38\n"; |