diff options
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; } |