Change 11136 by jhi@alpha on 2001/07/04 13:59:01
Avoid the two study tests in OS/390 until the bug has been solved.
Affected files ...
... //depot/perl/t/op/study.t#10 edit
Differences ...
==== //depot/perl/t/op/study.t#10 (xtext) ====
Index: perl/t/op/study.t
--- perl/t/op/study.t.~1~ Wed Jul 4 08:00:05 2001
+++ perl/t/op/study.t Wed Jul 4 08:00:05 2001
@@ -71,8 +71,12 @@
$* = 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 @@
print "not ok 26\t# " . $@ || "should not match\n";
}
}
+
End of Patch.
