diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-30 15:13:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-30 15:13:30 +0000 |
| commit | a2e77dd4cf90bb7f6aec3bab812072b5f8e77a1e (patch) | |
| tree | 32465774df731dcac34af1056450005b77b06182 /lib/charnames.t | |
| parent | 6fc0ea7edd3ec54598574fd68aea53117bde11eb (diff) | |
| download | perl-a2e77dd4cf90bb7f6aec3bab812072b5f8e77a1e.tar.gz | |
EBCDICification.
p4raw-id: //depot/perl@15622
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 87e4125004..7b7ad90640 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -181,13 +181,15 @@ print "ok 27\n"; print "not " unless "\N{LF}" eq "\n"; print "ok 28\n"; -print "not " unless "\N{NEXT LINE (NEL)}" eq chr(0x85); +my $nel = ord("A") == 193 ? qr/^(?:\x15|\x25)$/ : qr/^\x85$/; + +print "not " unless "\N{NEXT LINE (NEL)}" =~ $nel; print "ok 29\n"; -print "not " unless "\N{NEXT LINE}" eq chr(0x85); +print "not " unless "\N{NEXT LINE}" =~ $nel; print "ok 30\n"; -print "not " unless "\N{NEL}" eq chr(0x85); +print "not " unless "\N{NEL}" =~ $nel; print "ok 31\n"; print "not " unless "\N{BYTE ORDER MARK}" eq chr(0xFFFE); |