zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-19 16:42:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
weren't destroyed when error occured in them.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2053 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-11-18 16:16:13 +00:00 • committed by cras
commit 51db872da0
2 changed files with 14 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/perl/irssi-core.pl
View file

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