# %%s : must be second - use Irssi; use Irssi::Irc; etc..
package Irssi::Core;
-use Symbol qw(delete_package);
+use Symbol;
sub is_static {
return %d;
}
sub destroy {
- delete_package($_[0]);
+ eval { $_[0]->UNLOAD() if $_[0]->can('UNLOAD'); };
+ Symbol::delete_package($_[0]);
}
sub eval_data {
}
die $@ if $@;
- eval {$package->handler;};
+ my $ret;
+ eval { $ret = $package->handler; };
die $@ if $@;
+ return $ret;
}
sub eval_file {