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; }};