test that pp_leavesub copies returned PADTMPs.

Although pp_leavesub() has in fact always done this, it was never actually
tested for.

diff --git a/t/op/sub.t b/t/op/sub.t
index 380334b..cc6501d 100644 (file)
--- a/t/op/sub.t
+++ b/t/op/sub.t
@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan(tests => 60);
+plan(tests => 61);
 
 sub empty_sub {}
 
@@ -383,3 +383,11 @@ is(join('-', 10, check_ret(-1,5)),      "10",  "check_ret(-1,5) list");
     }->('a','b');
     is(join('-', @res), "a-b", "unnested rubbish");
 }
+
+# a sub should copy returned PADTMPs
+
+{
+    sub f99 { $_[0] . "x" };
+    my $a = [ f99(1), f99(2) ];
+    is("@$a", "1x 2x", "PADTMPs copied on return");
+}