diff options
| -rw-r--r-- | src/perl/perl-core.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 2d300289..7f05314f 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -160,7 +160,12 @@ void perl_scripts_deinit(void) /* Unload all perl libraries loaded with dynaloader */ perl_eval_pv("foreach my $lib (@DynaLoader::dl_modules) { if ($lib =~ /^Irssi\\b/) { $lib .= '::deinit();'; eval $lib; } }", TRUE); - perl_eval_pv("eval { foreach my $lib (@DynaLoader::dl_librefs) { DynaLoader::dl_unload_file($lib); } }", TRUE); + + /* We could unload all libraries .. but this crashes with some + libraries, probably because we don't call some deinit function.. + Anyway, this would free some memory with /SCRIPT RESET, but it + leaks memory anyway. */ + /*perl_eval_pv("eval { foreach my $lib (@DynaLoader::dl_librefs) { DynaLoader::dl_unload_file($lib); } }", TRUE);*/ /* perl interpreter */ perl_destruct(my_perl); |