From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 21 Nov 2001 15:02:39 +0000 (+0000)
Subject: Strange: the same mysterious regex study bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e826edc34da0d6aba91789176560a95b7ac6c6a9;p=p5sagit%2Fp5-mst-13.2.git

Strange: the same mysterious regex study bug
seems to be present both in OS/390 and POSIX-BC.
Deep EBCDIC magic that regex engine gets wrong,
or a bug in some compiler/library shared by the
two platforms?  From Thomas Dorner.

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

diff --git a/t/op/study.t b/t/op/study.t
index 3ca9535..d90efdc 100755
--- a/t/op/study.t
+++ b/t/op/study.t
@@ -105,8 +105,8 @@ ok(/^$_$/);
 $* = 1;	    # test 3 only tested the optimized version--this one is for real
 ok("ab\ncd\n" =~ /^cd/);
 
-if ($^O eq 'os390') {
-    # Even with the alarm() OS/390 can't manage these tests
+if ($^O eq 'os390' or $^O eq 'posix-bc') {
+    # Even with the alarm() OS/390 and BS2000 can't manage these tests
     # (Perl just goes into a busy loop, luckily an interruptable one)
     for (25..26) { print "not ok $_ # TODO compiler bug?\n" }
     $test += 2;