set PERL_EXIT_DESTRUCT_END in all embeddings

[perl5.git] / os2 / perlrexx.c

diff --git a/os2/perlrexx.c b/os2/perlrexx.c
index 18d6551..b9f6789 100644 (file)
--- a/os2/perlrexx.c
+++ b/os2/perlrexx.c
@@ -74,6 +74,7 @@ init_perl(int doparse)
        if (!my_perl)
            return 0;
        perl_construct(my_perl);
        if (!my_perl)
            return 0;
        perl_construct(my_perl);

+       PL_exit_flags |= PERL_EXIT_DESTRUCT_END;

        PL_perl_destruct_level = 1;
     }
     if (!doparse)
        PL_perl_destruct_level = 1;
     }
     if (!doparse)