EBCDIC: retract #16557, it ran into a weird tokenizer(?) bug.
Jarkko Hietaniemi [Sun, 12 May 2002 18:39:48 +0000 (18:39 +0000)]
(The manifestation: running pat.t core dumps after test 639.
 Removing everything after 639 makes core go away, as does
 removing everything before 640.  I did say "weird".  Some
 sort of a memory corruption, no doubt, but no time to debug
 in more detail.)

p4raw-id: //depot/perl@16560

t/op/pat.t

index 971ca71..5681d6a 100755 (executable)
@@ -1276,27 +1276,19 @@ print "not " unless "\x{abcd}" =~ /\x{abcd}/;
 print "ok 247\n";
 
 {
-    if (ord("ß") == 0337) { # Latin-1 only.
-       # bug id 20001008.001
-
-       eval <<'__EOT__';
-       my $test = 248;
-       my @x = ("stra\337e 138","stra\337e 138");
-       for (@x) {
-           s/(\d+)\s*([\w\-]+)/$1 . uc $2/e;
-           my($latin) = /^(.+)(?:\s+\d)/;
-           print $latin eq "stra\337e" ? "ok $test\n" :        # 248,249
-               "#latin[$latin]\nnot ok $test\n";
-           $test++;
-           $latin =~ s/stra\337e/straße/; # \303\237 after the 2nd a
-           use utf8; # needed for the raw UTF-8
-           $latin =~ s!(s)tr(?:aß|s+e)!$1tr.!; # \303\237 after the a
-       }
-__EOT__
-    } else {
-       for (248..249) {
-           print "ok $_ # Skip: only in Latin-1\n";
-        }
+    # bug id 20001008.001
+
+    my $test = 248;
+    my @x = ("stra\337e 138","stra\337e 138");
+    for (@x) {
+       s/(\d+)\s*([\w\-]+)/$1 . uc $2/e;
+       my($latin) = /^(.+)(?:\s+\d)/;
+       print $latin eq "stra\337e" ? "ok $test\n" :    # 248,249
+           "#latin[$latin]\nnot ok $test\n";
+       $test++;
+       $latin =~ s/stra\337e/straße/; # \303\237 after the 2nd a
+       use utf8; # needed for the raw UTF-8
+       $latin =~ s!(s)tr(?:aß|s+e)!$1tr.!; # \303\237 after the a
     }
 }