X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcmd_cache.pl;h=5e7fd9ec8f11d1d9566fc6a8b15e1953a6f2e327;hb=83445c4f6ec6c885260944a9abe648aced399c40;hp=25321e9a66f502640ebd835c7b3524b5b409b7ab;hpb=426a8fc779d9d363e094fd229a8de7d4fcd25518;p=spider.git diff --git a/cmd/show/cmd_cache.pl b/cmd/show/cmd_cache.pl index 25321e9a..5e7fd9ec 100644 --- a/cmd/show/cmd_cache.pl +++ b/cmd/show/cmd_cache.pl @@ -12,9 +12,9 @@ my $line = shift; return (1, $self->msg('e5')) if $self->priv < 9; my @out = sprintf "%-20s %s", "Command", "Path"; -for (sort keys %cmd_cache) { +for (sort keys %DXCommandmode::cmd_cache) { next if $line && $_ !~ m|\Q$line|i; - my $v = $cmd_cache{$_}; + my $v = $DXCommandmode::cmd_cache{$_}; $v =~ s|,|/|g; push @out, sprintf "%-20s %s", $_, "$v.pl"; }