diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-08-25 15:52:31 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-08-25 15:52:31 +0000 |
| commit | c7cfe9f3cb21e1dd19f6cbbf3230eab6090d496b (patch) | |
| tree | b051109274ece4de08ad1758017e91085dfe6f02 /src/perl/irssi-core.pl | |
| parent | 7c92a2725616e50e032dd24005058a26605cb6e8 (diff) | |
| download | irssi-c7cfe9f3cb21e1dd19f6cbbf3230eab6090d496b.zip | |
actually, eval {} it anyway so the script can be unloaded even if UNLOAD
fails..
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2884 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/irssi-core.pl')
| -rw-r--r-- | src/perl/irssi-core.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/perl/irssi-core.pl b/src/perl/irssi-core.pl index f9cae269..9ab5953b 100644 --- a/src/perl/irssi-core.pl +++ b/src/perl/irssi-core.pl @@ -13,7 +13,7 @@ sub is_static { } sub destroy { - $_[0]->UNLOAD() if $_[0]->can('UNLOAD'); + eval { $_[0]->UNLOAD() if $_[0]->can('UNLOAD'); }; Symbol::delete_package($_[0]); } |