fix ? all in non english langauge

[spider.git] / cmd / apropos.pl

diff --git a/cmd/apropos.pl b/cmd/apropos.pl
index 20775dd9bf9ca29f77b54ab2e470bbb19fc24fe9..98f799b360ecc2e55f4c770eb3debbb490599719 100644 (file)
--- a/cmd/apropos.pl
+++ b/cmd/apropos.pl
@@ -14,9 +14,10 @@ my @out;
 my $lang = $self->lang;
 $lang = 'en' if !$lang;
 
-print "$line\n";
+#print "$line\n";
 my $in;
 $line = 'help' unless $line;
+$line =~ s/\ball\b/.*/;
 $line =~ s/\W//g;   # remove dubious characters
 print "$line\n";