videosite-irssi: Add missing modules

[videosite.git] / videosite-irssi.pl

diff --git a/videosite-irssi.pl b/videosite-irssi.pl
index 50658f4..3ab54ec 100644 (file)
--- a/videosite-irssi.pl
+++ b/videosite-irssi.pl
@@ -7,6 +7,8 @@ use Irssi 20020324 qw (command_bind command_runsub signal_add_first signal_add_l
 use vars qw($VERSION %IRSSI);
 use File::Spec;
 use Module::Load;
+use XML::Simple;
+use JSON -support_by_pp;
 
 #
 # Initialize the config subsystem. Called by the core.
@@ -175,7 +177,7 @@ sub videosite_hook {
     my ($cmdline, $server, $witem) = @_;
     my %event = (
         message => $cmdline,
-        ewpf => sub { defined($evitem)?$evitem->print(@_):Irssi::print(@_) },
+        ewpf => sub { defined($witem)?$witem->print($_[0]):Irssi::print($_[0]) },
     );
 
     libvideosite::handle_command(\%event);
@@ -190,7 +192,7 @@ sub message_hook {
     my $evitem = $server->window_item_find($channel);
     my %event = (
         message => $msg,
-        ewpf => sub { defined($evitem)?$evitem->print(@_):Irssi::print(@_) },
+        ewpf => sub { defined($evitem)?$evitem->print($_[0]):Irssi::print($_[0]) },
     );
 
     libvideosite::check_for_link(\%event);
@@ -198,7 +200,7 @@ sub message_hook {
 
 sub videosite_reset {
     unless(libvideosite::register_api({
-        io => sub { Irssi::print(@_) },
+        io => sub { Irssi::print($_[0]) },
         config_init => \&config_init,
         config_get =>  \&config_get,
         config_set => \&config_set,