Revert "set PERL_EXIT_DESTRUCT_END in all embeddings"

[perl5.git] / os2 / perlrexx.c

diff --git a/os2/perlrexx.c b/os2/perlrexx.c
index b9f6789..18d6551 100644 (file)
--- a/os2/perlrexx.c
+++ b/os2/perlrexx.c
@@ -74,7 +74,6 @@ 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)