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();
+    }
 }