From 71fc2216c6a4911ddf91f3da00b2e64b1face896 Mon Sep 17 00:00:00 2001 From: "Adrian M. Enache" Date: Mon, 10 Feb 2003 19:54:13 +0000 Subject: [PATCH] Re: [perl #20777] [PATCH] goto &subroutine leaks memory Message-Id: <20030209201025.GA1247@ratsnest.hole> p4raw-id: //depot/perl@18688 --- pp_ctl.c | 1 + 1 file changed, 1 insertion(+) diff --git a/pp_ctl.c b/pp_ctl.c index a08e2b6..73d1365 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"); -- 2.7.4