Add megahal support to delling

[NDIRC.git] / Bot.pm

diff --git a/Bot.pm b/Bot.pm
index c90f8339d0d061e6009c10c5dd88ac6729ed8860..1200424a94cfba04219b6415cc1dfd685ce222e2 100644 (file)
--- 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";