From: David Dyck <david.dyck@fluke.com>
Date: Mon, 26 Nov 2001 21:52:35 +0000 (-0800)
Subject: [ID 20011126.149] t/op/split fails step 37
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd83d948c1f9420dc216ba9a2f8d6e3cd4dd668b;p=p5sagit%2Fp5-mst-13.2.git

[ID 20011126.149] t/op/split fails step 37
Message-Id: <200111270552.VAA09394@dd.tc.fluke.com>

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

diff --git a/t/op/split.t b/t/op/split.t
index 9e0beee..db23c90 100755
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -193,12 +193,13 @@ print "ok 32\n";
 }
 
 {
+    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 "