X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Dispatcher.pm;fp=Dispatcher.pm;h=ccfeb1371329689a2608b810101bc7dd7c2cbc11;hb=b87b6e87c3959096739e54bdf95c23d9e8212145;hp=5da34bdaf5d9ab976419ff8151ceda3275462261;hpb=df43148278c85c28726accbec2421688260661b7;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/;