Add assertions about there being no leftover scopes when enter perl_destruct.

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index e1c9ee19ab..dbb2081b8e 100644
--- a/perl.c
+++ b/perl.c
@@ -540,6 +540,8 @@ perl_destruct(pTHXx)
     PERL_UNUSED_ARG(my_perl);
 #endif
 
+    assert(PL_scopestack_ix == 1);
+
     /* wait for all pseudo-forked children to finish */
     PERL_WAIT_FOR_CHILDREN;
 
@@ -567,6 +569,7 @@ perl_destruct(pTHXx)
     }
     LEAVE;
     FREETMPS;
+    assert(PL_scopestack_ix == 0);
 
     /* Need to flush since END blocks can produce output */
     my_fflush_all();