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 (file)
--- 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);