From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 20 Apr 2003 21:46:51 +0000 (+0100)
Subject: goto &sub doesn't empty @_
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3a46bf87ef9ff1289bfbe7b2b0d02e631afe12d;p=p5sagit%2Fp5-mst-13.2.git

goto &sub doesn't empty @_
Message-ID: <20030420204651.GE15591@fdgroup.com>

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 4c53879..ac05b2f 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2234,6 +2234,8 @@ PP(pp_goto)
 		    AvFLAGS(av) = AVf_REIFY;
 		    PAD_SVl(0) = (SV*)(cx->blk_sub.argarray = av);
 		}
+		else
+		    CLEAR_ARGARRAY(av);
 	    }
 	    else if (CvXSUB(cv)) {	/* put GvAV(defgv) back onto stack */
 		AV* av;