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

diff --git a/Bot.pm b/Bot.pm
index c90f833..ccc3229 100644
--- a/Bot.pm
+++ b/Bot.pm
@@ -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}