summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--perl.c4
-rw-r--r--unixish.h4
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