diff options
| author | Philip Newton <pne@cpan.org> | 2002-04-01 19:06:18 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 14:22:14 +0000 |
| commit | 274085e3d0d92fea31afce1cf16bad209874ec70 (patch) | |
| tree | fdb8474187162f1a1d3a61df720c444d526a8a07 /lib/charnames.t | |
| parent | 07215cb701e0c6c4b314a6019622b10f189177c5 (diff) | |
| download | perl-274085e3d0d92fea31afce1cf16bad209874ec70.tar.gz | |
BOM, 0xFFFE, 0xFEFF, etc.
Message-ID: <aptgauk21cvnpiotsrm3gaul98j2dqsj9p@4ax.com>
p4raw-id: //depot/perl@15656
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 730ce1805a..1beecf3f71 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -193,7 +193,7 @@ print "ok 30\n"; print "not " unless "\N{NEL}" =~ $nel; print "ok 31\n"; -print "not " unless "\N{BYTE ORDER MARK}" eq chr(0xFFFE); +print "not " unless "\N{BYTE ORDER MARK}" eq chr(0xFEFF); print "ok 32\n"; print "not " unless "\N{BOM}" eq chr(0xFEFF); @@ -217,6 +217,6 @@ print "ok 33\n"; print "ok 37\n"; } -print "not " unless charnames::viacode(0xFEFF) eq "BYTE ORDER MARK"; +print "not " unless charnames::viacode(0xFEFF) eq "ZERO WIDTH NO-BREAK SPACE"; print "ok 38\n"; |