Put the tests of the change #19064 back, but disable them.

p4raw-link: @19064 on //depot/perl: 51d9a56bf5df931c436b7ede535c78bc64655187

p4raw-id: //depot/perl@20821

1 files changed, 16 insertions, 0 deletions

diff --git a/t/op/args.t b/t/op/args.t
index c30b70d024..bac8fd0301 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";
+}