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

---
 ChangeLog                     | 6 ++++++
 Completion/User/_perl_modules | 2 ++
 2 files changed, 8 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 9ae973d33..98ba3065d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-05-26  Clint Adams  <schizo@debian.org>
+
+	* 11599: Completion/User/_perl_modules: check to make sure
+	the directories in @INC exist and are executable before
+	trying to cd to them.
+
 2000-05-26  Peter Stephenson  <pws@cambridgesiliconradio.com>
 
 	* 11590: configure.in, Config/defs.mk.in, Etc/MACHINES,
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