From b9195aa57d0e2f9512450b169a807ff23b31def8 Mon Sep 17 00:00:00 2001
From: Oliver Kiddle <opk@users.sourceforge.net>
Date: Tue, 23 May 2000 18:06:32 +0000
Subject: minor completion fixes (11541)

---
 Completion/User/_perl_modules | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Completion/User/_perl_modules')

diff --git a/Completion/User/_perl_modules b/Completion/User/_perl_modules
index c6ea93f4c..d63f94f1b 100644
--- a/Completion/User/_perl_modules
+++ b/Completion/User/_perl_modules
@@ -22,11 +22,11 @@ zparseopts -D -a opts S: q
 
 if [[ ${+_perl_modules} -eq 0 ]]; then
   if zstyle -t ":completion:${curcontext}:modules" try-to-use-pminst \
-     && which pminst >/dev/null; then
+     && (( ${+commands[pminst]} )); then
     _perl_modules=( $(pminst) )
   else
     local inc libdir new_pms
-    if which perl >/dev/null; then
+    if (( ${+commands[perl]} )); then
       inc=( $( perl -e 'print "@INC"' ) )
     else
       # If perl isn't there, one wonders why the user's trying to
-- 
cgit v1.2.3