X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Bot.pm;h=823daaca3f3096e54c3a405ba66d86fbf03ace6f;hb=284c203203bc036d9f4b70115d2bcf33ed1c8fad;hp=c90f8339d0d061e6009c10c5dd88ac6729ed8860;hpb=921132036eac2233472b1b315e4ee39f5ab17fbd;p=NDIRC.git

diff --git a/Bot.pm b/Bot.pm
index c90f833..823daac 100644
--- a/Bot.pm
+++ b/Bot.pm
@@ -82,8 +82,8 @@ sub _start {
 	));
 
 	$heap->{connector} = POE::Component::IRC::Plugin::Connector->new(
-		servers => ['irc.netgamers.org', 'underworld.no.eu.netgamers.org'
-			,'firefly.no.eu.netgamers.org', 'underworld.ca.us.netgamers.org' ]
+		servers => [['irc.netgamers.org'], ['underworld.no.eu.netgamers.org']
+			,['firefly.no.eu.netgamers.org'], ['underworld.ca.us.netgamers.org'] ]
 	);
 	$irc->plugin_add( 'Connector' => $heap->{connector} );
 
@@ -128,7 +128,7 @@ sub _build_disp {
 		$disp->load(@commands);
 	}
 
-	my $channels = new IO::File 'channels';
+	my $channels = new IO::File 'channels' or die $!;;
 	while (<$channels>){
 		my ($chan, @types) = split /\s+/;
 		say "$chan - @types";
@@ -196,7 +196,7 @@ sub irc_001 {
 }
 
 sub irc_invite {
-	my ($self,$sender, $who, $channel) = @_[OBJECT,SENDER, HEAP, ARG0 .. ARG1];
+	my ($self,$sender, $who, $channel) = @_[OBJECT,SENDER, ARG0 .. ARG1];
 	my $irc = $sender->get_heap();
 
 	$irc->yield( join => $_ ) for grep /^$channel$/i, keys %{$self->disp->channels}