diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-10-23 20:37:53 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-10-23 20:37:53 +0000 |
| commit | 62c6a35aeb46e89f5ff6764e4472aabae31031e4 (patch) | |
| tree | b538493303a783c923cfbf90e5e76f4dd426275f /src | |
| parent | 287df1f16a9929525ac76931b6ad9c921d720324 (diff) | |
| download | irssi-62c6a35aeb46e89f5ff6764e4472aabae31031e4.zip | |
Added eval { } around the DynaLoader::dl_unload_file() calls to get rid of
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
Diffstat (limited to 'src')
| -rw-r--r-- | src/perl/perl-core.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 432a4283..eaaba100 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -123,7 +123,7 @@ 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("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_destruct(my_perl); |