From de8e061ef351da193723c72fb7a909ba7c5df8b6 Mon Sep 17 00:00:00 2001
From: Tanaka Akira <akr@users.sourceforge.net>
Date: Tue, 23 Nov 1999 14:35:36 +0000
Subject: zsh-workers/8750

---
 Completion/User/_perldoc | 14 ++++----------
 1 file 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 "$@"
-- 
cgit 1.4.1