From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 22 Aug 2003 07:51:21 +0000 (+0000)
Subject: Put the tests of the change #19064 back, but disable them.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0dae2686841bf2186fe9f1c6efdba42ed8ac3fd4;p=p5sagit%2Fp5-mst-13.2.git

Put the tests of the change #19064 back, but disable them.
p4raw-link: @19064 on //depot/perl: 51d9a56bf5df931c436b7ede535c78bc64655187

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

diff --git a/t/op/args.t b/t/op/args.t
index c30b70d..bac8fd0 100755
--- a/t/op/args.t
+++ b/t/op/args.t
@@ -74,3 +74,19 @@ for (1..5) { try() }
 ++$ord;
 print "ok $ord\n";
 
+# These tests disabled because the change #19064 was retracted.
+# http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-08/msg01485.html
+if (0) {
+# bug #21542 local $_[0] causes reify problems and coredumps
+
+sub local1 { local $_[0] }
+my $foo = 'foo'; local1($foo); local1($foo);
+print "got [$foo], expected [foo]\nnot " if $foo ne 'foo';
+$ord++;
+print "ok $ord\n";
+
+sub local2 { local $_[0]; last L }
+L: { local2 }
+$ord++;
+print "ok $ord\n";
+}