From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 12 May 2002 15:37:40 +0000 (+0000)
Subject: (retracted by #16560)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c034eee48cd80c10d94a4699e2ec9f3d69ae855;p=p5sagit%2Fp5-mst-13.2.git

(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
--- 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";