Re: [perl #20777] [PATCH] goto &subroutine leaks memory

Message-Id: <20030209201025.GA1247@ratsnest.hole>

p4raw-id: //depot/perl@18688

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index a08e2b61a8..73d136539d 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2102,6 +2102,7 @@ PP(pp_goto)
 	    }
 
 	    /* First do some returnish stuff. */
+	    FREETMPS;
 	    cxix = dopoptosub(cxstack_ix);
 	    if (cxix < 0)
 		DIE(aTHX_ "Can't goto subroutine outside a subroutine");