Because of #16550 these tests would now spew

"Malformed UTF-8" in EBCDIC.

p4raw-id: //depot/perl@16551

diff --git a/t/op/pat.t b/t/op/pat.t
index 5681d6a..4865c5e 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -1276,19 +1276,25 @@ print "not " unless "\x{abcd}" =~ /\x{abcd}/;
 print "ok 247\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
+    if (ord("ß") == 0337) { # Latin-1 only.
+       # 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
+       }
+    } else {
+       for (248..249) {
+           print "ok $_ # Skip: only in Latin-1\n";
+        }
     }
 }