1 files changed, 2 insertions, 0 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 4c53879103..ac05b2f5fe 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;