perl.c: leak avoidance

Message-ID: <4584234D.7070209@iki.fi>

p4raw-id: //depot/perl@29574

1 files changed, 16 insertions, 13 deletions

diff --git a/perl.c b/perl.c
index 0f242d73b6..de3b277088 100644
--- a/perl.c
+++ b/perl.c
@@ -792,19 +792,6 @@ perl_destruct(pTHXx)
     PL_exitlist = NULL;
     PL_exitlistlen = 0;
 
-    if (destruct_level == 0){
-
-	DEBUG_P(debprofdump());
-
-#if defined(PERLIO_LAYERS)
-	/* No more IO - including error messages ! */
-	PerlIO_cleanup(aTHX);
-#endif
-
-	/* The exit() function will do everything that needs doing. */
-        return STATUS_EXIT;
-    }
-
     /* jettison our possibly duplicated environment */
     /* if PERL_USE_SAFE_PUTENV is defined environ will not have been copied
      * so we certainly shouldn't free it here
@@ -831,6 +818,22 @@ perl_destruct(pTHXx)
 #endif
 #endif /* !PERL_MICRO */
 
+    if (destruct_level == 0) {
+
+	DEBUG_P(debprofdump());
+
+#if defined(PERLIO_LAYERS)
+	/* No more IO - including error messages ! */
+	PerlIO_cleanup(aTHX);
+#endif
+
+	CopFILE_free(&PL_compiling);
+	CopSTASH_free(&PL_compiling);
+
+	/* The exit() function will do everything that needs doing. */
+        return STATUS_EXIT;
+    }
+
     /* reset so print() ends up where we expect */
     setdefout(NULL);