Storable 2.06 (was Re: Bug in ext/Storable/t/integer.t)

[p5sagit/p5-mst-13.2.git] / pad.c

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