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 /NetWare | |
| 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 'NetWare')
| -rw-r--r-- | NetWare/interface.c | 1 | ||||
| -rw-r--r-- | NetWare/interface.cpp | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/NetWare/interface.c b/NetWare/interface.c index 1d298854c9..b943d21147 100644 --- a/NetWare/interface.c +++ b/NetWare/interface.c @@ -62,6 +62,7 @@ ClsPerlHost::PerlCreate(PerlInterpreter *my_perl) /* if (!(my_perl = perl_alloc())) // Allocate memory for Perl. return (1);*/ perl_construct(my_perl); + PL_exit_flags |= PERL_EXIT_DESTRUCT_END; return 1; } diff --git a/NetWare/interface.cpp b/NetWare/interface.cpp index b08d6c249e..7fe027933c 100644 --- a/NetWare/interface.cpp +++ b/NetWare/interface.cpp @@ -53,6 +53,7 @@ ClsPerlHost::PerlCreate(PerlInterpreter *my_perl) /* if (!(my_perl = perl_alloc())) // Allocate memory for Perl. return (1);*/ perl_construct(my_perl); + PL_exit_flags |= PERL_EXIT_DESTRUCT_END; return 1; } |