Additions to the Messages file for Spanish Language from Jesus ea1dav

[spider.git] / cmd / apropos.pl

diff --git a/cmd/apropos.pl b/cmd/apropos.pl
index 111e9b25292bb4a2ec83946aff25badc7f0e9780..1226a0a729df48fc63ebddeec50b0eb9c7d4d28c 100644 (file)
--- 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;