diff options
| author | Tanaka Akira <akr@users.sourceforge.net> | 1999-09-29 22:58:24 +0000 |
|---|---|---|
| committer | Tanaka Akira <akr@users.sourceforge.net> | 1999-09-29 22:58:24 +0000 |
| commit | f5c25fe270ba371b0ab5766b430640df70de7c56 (patch) | |
| tree | 0801d2a079c65d4b8186ff00d18f543e29552cdf /Completion/User/_perldoc | |
| parent | 9fd7cbf751de1f3faec8b689132d4401efe02547 (diff) | |
| download | zsh-f5c25fe270ba371b0ab5766b430640df70de7c56.tar.gz zsh-f5c25fe270ba371b0ab5766b430640df70de7c56.tar.xz zsh-f5c25fe270ba371b0ab5766b430640df70de7c56.zip | |
zsh-workers/8100
Diffstat (limited to 'Completion/User/_perldoc')
| -rw-r--r-- | Completion/User/_perldoc | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/Completion/User/_perldoc b/Completion/User/_perldoc index acd772b00..54f0d9c08 100644 --- a/Completion/User/_perldoc +++ b/Completion/User/_perldoc @@ -6,21 +6,24 @@ # _perldoc () { - _arguments -s \ - '-h:help:' \ - '(-q)-f:Perl built-in function:_perl_builtin_funcs:*:' \ - '(-f)-q:Perl FAQ keyword:' \ - '*:Perl pod pages:_perl_pods' + _arguments -s \ + '-h:help:' \ + '(-q)-f:Perl built-in function:_perl_builtin_funcs:*:' \ + '(-f)-q:Perl FAQ keyword:' \ + '*:Perl pod pages:_perl_pods' } _perl_pods () { - local nm="$compstate[nmatches]" + local nm="$compstate[nmatches]" + local expl + + _perl_modules + _perl_basepods - _perl_modules - _perl_basepods - _path_files -J 'Perl modules and .pods' -/ -g '*.(pod|pm)' + _description expl 'Perl modules and .pods' + _path_files "$expl[@]" -/ -g '*.(pod|pm)' - [[ nm -ne "$compstate[nmatches]" ]] + [[ nm -ne "$compstate[nmatches]" ]] } _perldoc "$@" |