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