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 (file)
--- 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 (file)
--- 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