X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2Fkill_perl.t;h=f600435ce71070ff42ec520f91f7d68ff7fc75a1;hb=d93f03cc3cfd6a0bcc6b100c4b6d32f0aee5e5f4;hp=9dcd59dc013428e588ede2c3ae7ed183d6f4c2a3;hpb=8bfdd7d95bcb290ba639e2c88c5d4370ab8fcfc0;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index 9dcd59d..f600435 100644
--- 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