From 5b463bddc627c274fd99beb85f4ce83f06072c0b Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@users.sourceforge.net>
Date: Fri, 26 May 2000 14:08:26 +0000
Subject: 11599: check for d&x bits on @INC directories in _perl_modules

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

(limited to 'Completion')

diff --git a/Completion/User/_perl_modules b/Completion/User/_perl_modules
index d63f94f1b..f28fc3ecc 100644
--- a/Completion/User/_perl_modules
+++ b/Completion/User/_perl_modules
@@ -46,9 +46,11 @@ if [[ ${+_perl_modules} -eq 0 ]]; then
       if [[ $libdir == '.' ]]; then break; fi
 
       # Find all modules
+      if [[ -d $libdir && -x $libdir ]]; then
       cd $libdir
       new_pms=( {[A-Z]*/***/,}*.pm~*blib*(N) )
       cd $OLDPWD
+      fi
 
       # Convert to Perl nomenclature
       new_pms=( ${new_pms:r:fs#/#::#} )
-- 
cgit 1.4.1