projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added filter code
[spider.git]
/
perl
/
CmdAlias.pm
diff --git
a/perl/CmdAlias.pm
b/perl/CmdAlias.pm
index 8e7f8834ea4503f03fc1b9b805672026d2246982..a424f8e861ebb5a00cb15f415293be47bb8db3fa 100644
(file)
--- 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) {
$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;
my $ro;
eval $ri;
return $ro;
@@
-105,16
+105,16
@@
sub get_hlp
$let = lc $let;
$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) {
$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;
}
}
return undef;