From c7cfe9f3cb21e1dd19f6cbbf3230eab6090d496b Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sun, 25 Aug 2002 15:52:31 +0000
Subject: 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
---
 src/perl/irssi-core.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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]);
 }
 
-- 
cgit v1.2.3