From f3a46bf87ef9ff1289bfbe7b2b0d02e631afe12d Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 20 Apr 2003 22:46:51 +0100
Subject: [PATCH] goto &sub doesn't empty @_ Message-ID:
 <20030420204651.GE15591@fdgroup.com>

p4raw-id: //depot/perl@19283
---
 pp_ctl.c | 2 ++
 1 file changed, 2 insertions(+)

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;
-- 
2.7.4