From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 25 Sep 2007 18:59:02 +0000 (+0000)
Subject: extend PL_veto_cleanup to all platforms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf81751b9f21a3dc39178c0d43a5ebd46ead1dd9;p=p5sagit%2Fp5-mst-13.2.git

extend PL_veto_cleanup to all platforms
The conditional skip of PERL_SYS_TERM introduced by change #29827
now happens on all platforms, not just UNIX.
p4raw-link: @29827 on //depot/perl: c301d6064f299b8a77670348b81d25d2d94d6a2f

p4raw-id: //depot/perl@31971
---

diff --git a/perl.c b/perl.c
index 9fe1042..b8096c2 100644
--- a/perl.c
+++ b/perl.c
@@ -204,7 +204,9 @@ Perl_sys_init3(int* argc, char*** argv, char*** env)
 void
 Perl_sys_term(pTHX)
 {
-    PERL_SYS_TERM_BODY();
+    if (!PL_veto_cleanup) {
+	PERL_SYS_TERM_BODY();
+    }
 }
 
 
diff --git a/unixish.h b/unixish.h
index 5abb42c..54602a7 100644
--- a/unixish.h
+++ b/unixish.h
@@ -133,9 +133,7 @@
 
 #ifndef PERL_SYS_TERM_BODY
 #  define PERL_SYS_TERM_BODY() \
-    if (!PL_veto_cleanup) { \
-	HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; \
-    }
+    HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM;
 
 #endif