POPLOOP is actually doing all the work of Perl_save_padsv() already!

p4raw-id: //depot/perl@33078

diff --git a/scope.c b/scope.c
index c6a3fd5..616247e 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -934,7 +934,7 @@ Perl_leave_scope(pTHX_ I32 base)
                const PADOFFSET off = (PADOFFSET)SSPOPLONG;
                ptr = SSPOPPTR;
                if (ptr)
-                   AvARRAY((PAD*)ptr)[off] = (SV*)SSPOPPTR;
+                   assert(AvARRAY((PAD*)ptr)[off] == (SV*)SSPOPPTR);
            }
            break;
        case SAVEt_SAVESWITCHSTACK: