X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fapropos.pl;h=1226a0a729df48fc63ebddeec50b0eb9c7d4d28c;hb=9ffa482b325ca5b660a50e4bb845420cad17e969;hp=111e9b25292bb4a2ec83946aff25badc7f0e9780;hpb=7dfcb79db379b97452ba1bde654a1945718eb7df;p=spider.git

diff --git a/cmd/apropos.pl b/cmd/apropos.pl
index 111e9b25..1226a0a7 100644
--- a/cmd/apropos.pl
+++ b/cmd/apropos.pl
@@ -15,7 +15,7 @@ my @out;
 my $lang = $self->lang;
 $lang = 'en' if !$lang;
 
-my $h = new FileHandle;
+my $h = new IO::File;
 
 if (!open($h, "$main::localcmd/Commands_$lang.hlp")) {
 	if (!open($h, "$main::cmd/Commands_$lang.hlp")) {
@@ -24,6 +24,7 @@ if (!open($h, "$main::localcmd/Commands_$lang.hlp")) {
 }
 my $in;
 
+$line = 'help' unless $line;
 $line =~ s/\W//og;   # remove dubious characters
 
 my $include;