Converted addscans

[NDIRC.git] / Dispatcher.pm

diff --git a/Dispatcher.pm b/Dispatcher.pm
index 5da34bdaf5d9ab976419ff8151ceda3275462261..ccfeb1371329689a2608b810101bc7dd7c2cbc11 100644 (file)
--- a/Dispatcher.pm
+++ b/Dispatcher.pm
@@ -110,7 +110,7 @@ sub has_command {
        my ($self,$command,$channel) = @_;
        $channel = lc $channel;
 
-       return 0 unless exists $self->commands->{$command};
+       return 0 unless defined $command && exists $self->commands->{$command};
 
        my $types = Set::Object->new(@{$self->commands->{$command}->type});
        my @types = qw/pub/;