summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2007-09-25 18:59:02 +0000
committerDave Mitchell <davem@fdisolutions.com>2007-09-25 18:59:02 +0000
commitbf81751b9f21a3dc39178c0d43a5ebd46ead1dd9 (patch)
tree7eb6e4339ebd751626611a1e866a3dd109e95e64 /perl.c
parentcbec8ebe2f7855c619451e56c6921e1537d3eba5 (diff)
downloadperl-bf81751b9f21a3dc39178c0d43a5ebd46ead1dd9.tar.gz
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
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c4
1 files changed, 3 insertions, 1 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();
+ }
}