From: Arthur Bergman <arthur@contiller.se>
Date: Mon, 13 Aug 2001 11:11:30 +0000 (+0200)
Subject: Re: END {} blocks run in perl_run
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3faeb53b75c95d2773d14d859d4fa9ca1594daa;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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.  */