[perl #32039] Chained goto &sub drops data too early.

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

diff --git a/t/op/goto.t b/t/op/goto.t
index c0936a7..3b92123 100755 (executable)
--- a/t/op/goto.t
+++ b/t/op/goto.t
@@ -7,7 +7,7 @@ BEGIN {
     @INC = qw(. ../lib);
 }
 
-print "1..46\n";
+print "1..47\n";
 
 require "test.pl";
 
@@ -407,4 +407,12 @@ sub recurse2 {
 print "not " unless recurse1(500) == 500;
 print "ok 46 - recursive goto &foo\n";
 
+# [perl #32039] Chained goto &sub drops data too early. 
+
+sub a32039 { @_=("foo"); goto &b32039; }
+sub b32039 { goto &c32039; }
+sub c32039 { print $_[0] eq 'foo' ? "" : "not ", "ok 47 - chained &goto\n" }
+a32039();
+
+