diff options
| author | Zefram <zefram@fysh.org> | 2017-12-22 10:07:47 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2017-12-22 10:07:47 +0000 |
| commit | 8e920bd341e241f50a74dbf8aa343319f204e200 (patch) | |
| tree | bcfac3272cdba4520e246ae057f62a19e2a68989 /os2/perlrexx.c | |
| parent | 503bc07b4b9e34ed04a725b2bc8faec1ae0f3be2 (diff) | |
| download | perl-8e920bd341e241f50a74dbf8aa343319f204e200.tar.gz | |
set PERL_EXIT_DESTRUCT_END in all embeddings
The new tests in commit 503bc07b4b9e34ed04a725b2bc8faec1ae0f3be2
showed up platform differences in whether END blocks get run.
Set PERL_EXIT_DESTRUCT_END in all embeddings to make this consistent.
Diffstat (limited to 'os2/perlrexx.c')
| -rw-r--r-- | os2/perlrexx.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/os2/perlrexx.c b/os2/perlrexx.c index 18d655137d..b9f6789677 100644 --- 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); + PL_exit_flags |= PERL_EXIT_DESTRUCT_END; PL_perl_destruct_level = 1; } if (!doparse) |