summaryrefslogtreecommitdiff
path: root/pad.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2002-10-07 03:42:13 +0100
committerhv <hv@crypt.org>2002-10-12 14:19:55 +0000
commit3979c56f3b524e6b2ea9583eb2bf578ff4a4112c (patch)
treedbc589edf99be96f8c2d24c0d930b5af4b921ec5 /pad.c
parent295f0f84e758e0bd709fbbb73900b27d95ed9081 (diff)
downloadperl-3979c56f3b524e6b2ea9583eb2bf578ff4a4112c.tar.gz
Re: closure failures
Message-ID: <20021007024213.B29760@fdgroup.com> p4raw-id: //depot/perl@18006
Diffstat (limited to 'pad.c')
-rw-r--r--pad.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/pad.c b/pad.c
index 96da712c2d..7959f29b4b 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);