(retracted by #16560)

EBCDIC: must protect also compile time so that
the illegal UTF-EBCDIC is not seen.

p4raw-id: //depot/perl@16557

diff --git a/t/op/pat.t b/t/op/pat.t
index 4865c5e..971ca71 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -1279,6 +1279,7 @@ 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) {
@@ -1291,6 +1292,7 @@ print "ok 247\n";
            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";