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 (file)
--- 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;