diff options
| -rw-r--r-- | src/perl/perl-core.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 5e401ead..1814ef36 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -162,6 +162,7 @@ void perl_scripts_deinit(void) /*perl_eval_pv("eval { foreach my $lib (@DynaLoader::dl_librefs) { DynaLoader::dl_unload_file($lib); } }", TRUE);*/ /* perl interpreter */ + PL_perl_destruct_level = 1; perl_destruct(my_perl); perl_free(my_perl); my_perl = NULL; |