/SCRIPT UNLOAD didn't destroy the perl package from memory. Also the scripts

weren't destroyed when error occured in them.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2053 dbcabf3a-b0e7-0310-adc4-f8d773084564

1 files changed, 2 insertions, 3 deletions

diff --git a/src/perl/irssi-core.pl b/src/perl/irssi-core.pl
index a63a723c..31fbe484 100644
--- a/src/perl/irssi-core.pl
+++ b/src/perl/irssi-core.pl
@@ -13,13 +13,12 @@ sub is_static {
 }
 
 sub destroy {
-  my $package = "Irssi::Script::".$_[0];
-  delete_package($package);
+  delete_package($_[0]);
 }
 
 sub eval_data {
   my ($data, $id) = @_;
-  destroy($id);
+  destroy("Irssi::Script::$id");
 
   my $package = "Irssi::Script::$id";
   my $eval = qq{package $package; %s sub handler { $data; }};