X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fhelp.pl;fp=cmd%2Fhelp.pl;h=f0da2f82f07dcbe2ea5caa8c48e83fe048649e02;hb=371caba1b5b241d10e9f68bfb2b866141f3ea84e;hp=cf3dbd8b5a9e25a65f7e81c04bd596e060df8355;hpb=47c1e91e4d503904e0b35e49952f75866d96fe1d;p=spider.git

diff --git a/cmd/help.pl b/cmd/help.pl
index cf3dbd8b..f0da2f82 100644
--- a/cmd/help.pl
+++ b/cmd/help.pl
@@ -59,7 +59,7 @@ foreach $in (<$h>) {
 		$in =~ s/=== //;
 		my ($priv, $cmd, $desc) = split /\^/, $in;
 		next if $priv > $self->priv;             # ignore subcommands that are of no concern
-		next unless $cmd =~ /$line/i;
+		next unless $cmd =~ /^$line/i;
 		push @out, "$cmd $desc" unless $cmd =~ /-$/o;
 		$state = 1;
 		next;