From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 4 Jul 2001 13:59:01 +0000 (+0000)
Subject: Avoid the two study tests in OS/390 until the bug has been solved.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51153910ec88cd710ff852cd0a91ef9d95febb79;p=p5sagit%2Fp5-mst-13.2.git

Avoid the two study tests in OS/390 until the bug has been solved.

p4raw-id: //depot/perl@11136
---

diff --git a/t/op/study.t b/t/op/study.t
index 348de79..0c111ea 100755
--- a/t/op/study.t
+++ b/t/op/study.t
@@ -71,8 +71,12 @@ if (/^$_$/) {print "ok 23\n";} else {print "not ok 23\n";}
 $* = 1;		# test 3 only tested the optimized version--this one is for real
 if ("ab\ncd\n" =~ /^cd/) {print "ok 24\n";} else {print "not ok 24\n";}
 
-# [ID 20010618.006] tests 25..26 may loop
-{
+if ($^O eq 'os390') {
+    # Even with the alarm() OS/390 can't manage these tests
+    # (Perl just goes into a busy loop, luckily an interruptable one)
+    for (25..26) { print "not ok $_ # compiler bug?\n" }
+} else {
+    # [ID 20010618.006] tests 25..26 may loop
     use Config;
     my $have_alarm = $Config{d_alarm};
     local $SIG{ALRM} = sub { die "timeout\n" };
@@ -96,3 +100,4 @@ if ("ab\ncd\n" =~ /^cd/) {print "ok 24\n";} else {print "not ok 24\n";}
 	print "not ok 26\t# " . $@ || "should not match\n";
     }
 }
+