From bf81751b9f21a3dc39178c0d43a5ebd46ead1dd9 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 25 Sep 2007 18:59:02 +0000
Subject: 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
---
 perl.c    | 4 +++-
 unixish.h | 4 +---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/perl.c b/perl.c
index 9fe10423ee..b8096c2da4 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 5abb42c1b0..54602a7f8f 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
 
-- 
cgit v1.2.1