Better version of change #19069

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

diff --git a/t/op/args.t b/t/op/args.t
index ce2c398..90a7d25 100755 (executable)
--- a/t/op/args.t
+++ b/t/op/args.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..9\n";
+print "1..11\n";
 
 # test various operations on @_
 
@@ -73,3 +73,16 @@ sub try {
 for (1..5) { try() }
 ++$ord;
 print "ok $ord\n";
+
+# 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";