projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Now add files that the previous commit refered to
[spider.git]
/
cmd
/
show
/
cmd_cache.pl
diff --git
a/cmd/show/cmd_cache.pl
b/cmd/show/cmd_cache.pl
index bd26c7d88dfd103ba4d7b7050f33f102b308f1fe..5e7fd9ec8f11d1d9566fc6a8b15e1953a6f2e327 100644
(file)
--- a/
cmd/show/cmd_cache.pl
+++ b/
cmd/show/cmd_cache.pl
@@
-8,11
+8,13
@@
#
my $self = shift;
#
my $self = shift;
+my $line = shift;
return (1, $self->msg('e5')) if $self->priv < 9;
my @out = sprintf "%-20s %s", "Command", "Path";
return (1, $self->msg('e5')) if $self->priv < 9;
my @out = sprintf "%-20s %s", "Command", "Path";
-for (sort keys %cmd_cache) {
- my $v = $cmd_cache{$_};
+for (sort keys %DXCommandmode::cmd_cache) {
+ next if $line && $_ !~ m|\Q$line|i;
+ my $v = $DXCommandmode::cmd_cache{$_};
$v =~ s|,|/|g;
push @out, sprintf "%-20s %s", $_, "$v.pl";
}
$v =~ s|,|/|g;
push @out, sprintf "%-20s %s", $_, "$v.pl";
}