1 # NOTE: this is printed through printf()-like function,
2 # so no extra percent characters.
4 # %%d : must be first - 1 if perl libraries are to be linked
5 # statically with irssi binary, 0 if not
6 # %%s : must be second - use Irssi; use Irssi::Irc; etc..
9 use Symbol qw(delete_package);
16 delete_package($_[0]);
21 destroy("Irssi::Script::$id");
23 my $package = "Irssi::Script::$id";
24 my $eval = qq{package $package; %s sub handler { $data; }};
26 # hide our variables within this block
27 my ($filename, $package, $data);
32 eval {$package->handler;};
37 my ($filename, $id) = @_;
40 open FH, $filename or die "File not found: $filename";
46 eval_data($data, $id);