about summary refs log tree commit diff
path: root/Completion/User
diff options
context:
space:
mode:
authorTanaka Akira <akr@users.sourceforge.net>1999-11-23 14:35:36 +0000
committerTanaka Akira <akr@users.sourceforge.net>1999-11-23 14:35:36 +0000
commitde8e061ef351da193723c72fb7a909ba7c5df8b6 (patch)
treed1d60cb8f4aabbf18a28207f8bbc34c3379e316d /Completion/User
parent616d348e392e87d491abe5dab2068704aafb00e5 (diff)
downloadzsh-de8e061ef351da193723c72fb7a909ba7c5df8b6.tar.gz
zsh-de8e061ef351da193723c72fb7a909ba7c5df8b6.tar.xz
zsh-de8e061ef351da193723c72fb7a909ba7c5df8b6.zip
zsh-workers/8750
Diffstat (limited to 'Completion/User')
-rw-r--r--Completion/User/_perldoc14
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 "$@"