aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Added eval { } around the DynaLoader::dl_unload_file() calls to get rid of

Browse Source 
the errors it's printing with perl < 5.6.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1900 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-10-23 20:37:53 +00:00 committed by cras
parent 287df1f16a
commit 62c6a35aeb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/perl/perl-core.c
View File

@ -123,7 +123,7 @@ void perl_scripts_deinit(void)
/* Unload all perl libraries loaded with dynaloader */ /* 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("foreach my $lib (@DynaLoader::dl_modules) { if ($lib =~ /^Irssi\\b/) { $lib .= '::deinit();'; eval $lib; } }", TRUE);
perl_eval_pv("foreach my $lib (@DynaLoader::dl_librefs) { DynaLoader::dl_unload_file($lib); }", TRUE); perl_eval_pv("eval { foreach my $lib (@DynaLoader::dl_librefs) { DynaLoader::dl_unload_file($lib); } }", TRUE);
/* perl interpreter */ /* perl interpreter */
perl_destruct(my_perl); perl_destruct(my_perl);