Re: END {} blocks run in perl_run

Message-ID: <B79D6661.3068%arthur@contiller.se>

p4raw-id: //depot/perl@11658

diff --git a/perl.c b/perl.c
index 7a59772..8379cf2 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -397,15 +397,16 @@ perl_destruct(pTHXx)
     }
 #endif
 
-    LEAVE;
     {
-      dJMPENV;
-      int x = 0;
-      JMPENV_PUSH(x);
-      if (PL_endav && !PL_minus_c)
-       call_list(PL_scopestack_ix, PL_endav);
-      JMPENV_POP;
+        dJMPENV;
+        int x = 0;
+
+        JMPENV_PUSH(x);
+        if (PL_endav && !PL_minus_c)
+            call_list(PL_scopestack_ix, PL_endav);
+        JMPENV_POP;
     }
+    LEAVE;
     FREETMPS;
 
     /* We must account for everything.  */