[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 (executable)
--- 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 "