X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fhelp.pl;h=afdd2d302df66cc0d14db4c1dba93ba20b3eaf0d;hb=094315a61715270dbcf64d38d0b445ce6289f1ae;hp=c74fad166ba4a073f70cf2d025be99040b99fcf4;hpb=4c92a7711c41cc7ba1c60d5a49a94db239032ac1;p=spider.git

diff --git a/cmd/help.pl b/cmd/help.pl
index c74fad16..afdd2d30 100644
--- a/cmd/help.pl
+++ b/cmd/help.pl
@@ -32,7 +32,7 @@ $lang = 'en' if !$lang;
 # The fields are:- privilege level, Language, full command name, short description
 #
 
-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")) {
@@ -43,6 +43,12 @@ my $in;
 
 $line =~ s/![\w\/]//og;
 $line =~ s/\//\.\*\//og;
+$line =~ s/^\s+//og;
+$line =~ s/\s+$//og;
+
+# sort out aliases
+my $alias = CmdAlias::get_hlp($line);
+$line = $alias if $alias;
 
 my $include;
 foreach $in (<$h>) {