From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 30 Mar 2002 15:13:30 +0000 (+0000)
Subject: EBCDICification.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2e77dd4cf90bb7f6aec3bab812072b5f8e77a1e;p=p5sagit%2Fp5-mst-13.2.git

EBCDICification.

p4raw-id: //depot/perl@15622
---

diff --git a/lib/charnames.t b/lib/charnames.t
index 87e4125..7b7ad90 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);