my @out;
# this is naff but it will work for now
-$line = "help" if !$line;
+$line = "help" unless $line;
my $lang = $self->lang;
$lang = 'en' if !$lang;
$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;