Hide warning

[NDIRC.git] / Dispatcher.pm

diff --git a/Dispatcher.pm b/Dispatcher.pm
index 7dce09838c4f28e954babec1e81ac32c6796f960..6705349b8081b4da430edc43ee3e48d12adf0217 100644 (file)
--- a/Dispatcher.pm
+++ b/Dispatcher.pm
@@ -99,6 +99,7 @@ sub has_command {
        my ($self,$command,$channel) = @_;
        $channel = lc $channel;
 
+       return 0 unless defined $command && defined $channel;
        return 0 unless exists $self->commands->{$command};
        return 0 unless exists $self->channels->{$channel};