(Retracted by #12777)

[p5sagit/p5-mst-13.2.git] / t / run / kill_perl.t

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index 9dcd59d..f600435 100644 (file)
--- a/t/run/kill_perl.t
+++ b/t/run/kill_perl.t
@@ -75,8 +75,11 @@ foreach my $prog (@prgs) {
     elsif ($^O eq 'NetWare') {
         $results = `perl -I../lib $switch $tmpfile 2>&1`;
     }
+    elsif ($^O eq 'MacOS') {
+       $results = `$^X -I::lib -MMac::err=unix $switch $tmpfile`;
+    }
     else {
-      $results = `./perl -I../lib $switch $tmpfile 2>&1`;
+      $results = `./perl "-I../lib" $switch $tmpfile 2>&1`;
     }
     my $status = $?;
 
@@ -626,16 +629,6 @@ EOT
 EXPECT
 ok
 ########
-# test that closures generated by eval"" hold on to the CV of the eval""
-# for their entire lifetime
-$code = eval q[
-  sub { eval '$x = "ok 1\n"'; }
-];
-&{$code}();
-print $x;
-EXPECT
-ok 1
-########
 # This test is here instead of pragma/locale.t because
 # the bug depends on in the internal state of the locale
 # settings and pragma/locale messes up that state pretty badly.
@@ -811,3 +804,14 @@ Execution of - aborted due to compilation errors.
 BEGIN { print "ok\n" }
 EXPECT
 ok
+######## read($var, FILE, 1) segfaults on 5.6.1 [ID 20011025.054]
+read($bla, FILE, 1);
+EXPECT
+Can't modify constant item in read at - line 1, near "1)"
+Execution of - aborted due to compilation errors.
+######## [ID 19990906.001]
+$line = ('a' x 99999) . ";'"; . ('a' x 20000);
+$line =~ m";(?:\s*\'(?:[^\\']|\\.)*\'\s*)";;
+print "ok\n";
+EXPECT
+ok