diff options
| author | Tanaka Akira <akr@users.sourceforge.net> | 1999-11-23 14:35:36 +0000 |
|---|---|---|
| committer | Tanaka Akira <akr@users.sourceforge.net> | 1999-11-23 14:35:36 +0000 |
| commit | de8e061ef351da193723c72fb7a909ba7c5df8b6 (patch) | |
| tree | d1d60cb8f4aabbf18a28207f8bbc34c3379e316d | |
| parent | 616d348e392e87d491abe5dab2068704aafb00e5 (diff) | |
| download | zsh-de8e061ef351da193723c72fb7a909ba7c5df8b6.tar.gz zsh-de8e061ef351da193723c72fb7a909ba7c5df8b6.tar.xz zsh-de8e061ef351da193723c72fb7a909ba7c5df8b6.zip | |
zsh-workers/8750
| -rw-r--r-- | Completion/User/_perldoc | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/Completion/User/_perldoc b/Completion/User/_perldoc index 62fd18ca7..9a017a184 100644 --- a/Completion/User/_perldoc +++ b/Completion/User/_perldoc @@ -14,16 +14,10 @@ _perldoc () { } _perl_pods () { - local nm="$compstate[nmatches]" - local expl - - _perl_modules - _perl_basepods - - _description expl 'Perl modules and .pods' - _files "$expl[@]" -g '*.(pod|pm)' - - [[ nm -ne "$compstate[nmatches]" ]] + _alternative \ + 'modules:: _perl_modules' \ + 'pods:: _perl_basepods' \ + 'files:Perl modules and .pods:_files -g \*.\(pod\|pm\)' } _perldoc "$@" |