diff options
-rw-r--r-- | perl.c | 4 | ||||
-rw-r--r-- | unixish.h | 4 |
2 files changed, 4 insertions, 4 deletions
@@ -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(); + } } @@ -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 |