From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 7 Oct 2002 02:42:13 +0000 (+0100)
Subject: Re: closure failures
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3979c56f3b524e6b2ea9583eb2bf578ff4a4112c;p=p5sagit%2Fp5-mst-13.2.git

Re: closure failures
Message-ID: <20021007024213.B29760@fdgroup.com>

p4raw-id: //depot/perl@18006
---

diff --git a/pad.c b/pad.c
index 96da712..7959f29 100644
--- a/pad.c
+++ b/pad.c
@@ -119,8 +119,7 @@ Perl_pad_new(pTHX_ padnew_flags flags)
     /* save existing state, ... */
 
     if (flags & padnew_SAVE) {
-	SAVEVPTR(PL_curpad);
-	SAVESPTR(PL_comppad);
+	SAVECOMPPAD();
 	SAVESPTR(PL_comppad_name);
 	if (! (flags & padnew_CLONE)) {
 	    SAVEI32(PL_padix);