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 /win32/perllib.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 'win32/perllib.c')
| -rw-r--r-- | win32/perllib.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index 246f67aa1a..25b20156ec 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -230,6 +230,7 @@ RunPerl(int argc, char **argv, char **env) if (!(my_perl = perl_alloc())) return (1); perl_construct(my_perl); + PL_exit_flags |= PERL_EXIT_DESTRUCT_END; PL_perl_destruct_level = 0; /* PERL_SYS_INIT() may update the environment, e.g. via ansify_path(). |