made help find what you asked for

[spider.git] / cmd / help.pl

diff --git a/cmd/help.pl b/cmd/help.pl
index cf3dbd8b5a9e25a65f7e81c04bd596e060df8355..f0da2f82f07dcbe2ea5caa8c48e83fe048649e02 100644 (file)
--- 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;