X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Dispatcher.pm;h=ccfeb1371329689a2608b810101bc7dd7c2cbc11;hb=5f3e2c69d303e9196a76dd10607b595cac6658a8;hp=5da34bdaf5d9ab976419ff8151ceda3275462261;hpb=4f1948e0fe10075464732db5cc2168207c00c7aa;p=NDIRC.git

diff --git a/Dispatcher.pm b/Dispatcher.pm
index 5da34bd..ccfeb13 100644
--- 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/;