This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
set PERL_EXIT_DESTRUCT_END in all embeddings
[perl5.git] / os2 / perlrexx.c
index 18d6551..b9f6789 100644 (file)
@@ -74,6 +74,7 @@ init_perl(int doparse)
        if (!my_perl)
            return 0;
        perl_construct(my_perl);
+       PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
        PL_perl_destruct_level = 1;
     }
     if (!doparse)