fix pad_alloc panic from C<my $w; sub { my($i) = @_; sub { $w } }>

p4raw-id: //depot/perl@4970

1 files changed, 1 insertions, 2 deletions

diff --git a/op.c b/op.c
index 953ee1c42c..456d786b6a 100644
--- a/op.c
+++ b/op.c
@@ -4084,8 +4084,7 @@ S_cv_clone2(pTHX_ CV *proto, CV *outside)
     assert(!CvUNIQUE(proto));
 
     ENTER;
-    SAVEVPTR(PL_curpad);
-    SAVESPTR(PL_comppad);
+    SAVECOMPPAD();
     SAVESPTR(PL_comppad_name);
     SAVESPTR(PL_compcv);