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

p4raw-id: //depot/perl@4970

1 files changed, 7 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index 7052282edb..91e0374955 100644
--- a/scope.c
+++ b/scope.c
@@ -934,6 +934,13 @@ Perl_leave_scope(pTHX_ I32 base)
 	    }
 	    *(I32*)&PL_hints = (I32)SSPOPINT;
 	    break;
+	case SAVEt_COMPPAD:
+	    PL_comppad = (AV*)SSPOPPTR;
+	    if (PL_comppad)
+		PL_curpad = AvARRAY(PL_comppad);
+	    else
+		PL_curpad = Null(SV**);
+	    break;
 	default:
 	    Perl_croak(aTHX_ "panic: leave_scope inconsistency");
 	}