Loop in S_init_perllib(), only calling S_incpush*() with INCPUSH_ADD_OLD_VERS

[p5sagit/p5-mst-13.2.git] / t / op / study.t

diff --git a/t/op/study.t b/t/op/study.t
index d90efdc..17c59da 100755 (executable)
--- a/t/op/study.t
+++ b/t/op/study.t
@@ -55,9 +55,8 @@ study($x);
 ok($x =~ /^abc/);
 ok($x !~ /^def/);
 
-$* = 1;
-ok($x =~ /^def/);
-$* = 0;
+# used to be a test for $*
+ok($x =~ /^def/m);
 
 $_ = '123';
 study;
@@ -102,10 +101,10 @@ ok(m|bc/*d|);
 
 ok(/^$_$/);
 
-$* = 1;            # test 3 only tested the optimized version--this one is for real
-ok("ab\ncd\n" =~ /^cd/);
+# used to be a test for $*
+ok("ab\ncd\n" =~ /^cd/m);
 
-if ($^O eq 'os390' or $^O eq 'posix-bc') {
+if ($^O eq 'os390' or $^O eq 'posix-bc' or $^O eq 'MacOS') {
     # 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" }