X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FCmdAlias.pm;h=a424f8e861ebb5a00cb15f415293be47bb8db3fa;hb=b4826d1f4125788e14fed3adbb99e66242904e74;hp=8e7f8834ea4503f03fc1b9b805672026d2246982;hpb=43ac48b5c2aecc7fe27af95d4b613b8d2dd08761;p=spider.git

diff --git a/perl/CmdAlias.pm b/perl/CmdAlias.pm
index 8e7f8834..a424f8e8 100644
--- a/perl/CmdAlias.pm
+++ b/perl/CmdAlias.pm
@@ -85,7 +85,7 @@ sub get_cmd
   $n = @{$ref};
   for ($i = 0; $i < $n; $i += 3) {
     if ($s =~ /$ref->[$i]/i) {
-	  my $ri = qq{\$ro = "$ref->[$i+1]"};
+ 	  my $ri = qq{\$ro = "$ref->[$i+1]"};
 	  my $ro;
 	  eval $ri;
 	  return $ro;
@@ -105,16 +105,16 @@ sub get_hlp
 
   $let = lc $let;
   
-  checkfiles();
-  
   $ref = $alias{$let};
   return undef if !$ref;
   
   $n = @{$ref};
   for ($i = 0; $i < $n; $i += 3) {
     if ($s =~ /$ref->[$i]/i) {
-	  my $ri = qq{$ref->[$i+2]};
-	  return $ri;
+ 	  my $ri = qq{\$ro = "$ref->[$i+2]"};
+	  my $ro;
+	  eval $ri;
+	  return $ro;
 	}
   }
   return undef;