Change 13307 by jhi@alpha on 2001/11/27 12:56:09
Subject: [ID 20011126.149] t/op/split fails step 37
From: David Dyck <[EMAIL PROTECTED]>
Date: Mon, 26 Nov 2001 21:52:35 -0800
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/op/split.t#27 edit
Differences ...
==== //depot/perl/t/op/split.t#27 (xtext) ====
Index: perl/t/op/split.t
--- perl/t/op/split.t.~1~ Tue Nov 27 06:00:05 2001
+++ perl/t/op/split.t Tue Nov 27 06:00:05 2001
@@ -193,12 +193,13 @@
}
{
+ my $s = "\x20\x40\x{80}\x{100}\x{80}\x40\x20";
+
if (ord('A') == 193) {
print "ok 36 # Skip: EBCDIC\n";
} else {
# bug id 20000426.003
- my $s = "\x20\x40\x{80}\x{100}\x{80}\x40\x20";
my ($a, $b, $c) = split(/\x40/, $s);
print "not "
End of Patch.
