From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 12 May 2002 18:39:48 +0000 (+0000)
Subject: EBCDIC: retract #16557, it ran into a weird tokenizer(?) bug.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f99693245dcd7253f84d04a114c24e08ce1ceea5;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC: retract #16557, it ran into a weird tokenizer(?) bug.
(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
---

diff --git a/t/op/pat.t b/t/op/pat.t
index 971ca71..5681d6a 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -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
     }
 }