summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorAdrian M. Enache <enache@rdslink.ro>2003-02-10 19:54:13 +0000
committerArtur Bergman <sky@nanisky.com>2003-02-10 19:54:13 +0000
commit71fc2216c6a4911ddf91f3da00b2e64b1face896 (patch)
tree7ecc0d1a90a47dba32ee6e2bb1e45109e3ce0273 /pp_ctl.c
parent437fd2104756c25dedf68c6e31cd29ecbf0e2569 (diff)
downloadperl-71fc2216c6a4911ddf91f3da00b2e64b1face896.tar.gz
Re: [perl #20777] [PATCH] goto &subroutine leaks memory
Message-Id: <20030209201025.GA1247@ratsnest.hole> p4raw-id: //depot/perl@18688
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c1
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");