diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-04-20 22:46:51 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-20 22:01:28 +0000 |
| commit | f3a46bf87ef9ff1289bfbe7b2b0d02e631afe12d (patch) | |
| tree | 1a5dd281b7bccb6d9574f01fba5a4f9a2e442ab9 /pp_ctl.c | |
| parent | d182087b9c1b88110b74f5b964141fd8c34bbe98 (diff) | |
| download | perl-f3a46bf87ef9ff1289bfbe7b2b0d02e631afe12d.tar.gz | |
goto &sub doesn't empty @_
Message-ID: <20030420204651.GE15591@fdgroup.com>
p4raw-id: //depot/perl@19283
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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; |