From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 11 May 2002 22:26:38 +0000 (+0000)
Subject: Because of #16550 these tests would now spew
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa66001256943dc92a94097f9e379754929b0219;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
+        }
     }
 }