about summary refs log tree commit diff
path: root/Completion/User/_perl_modules
diff options
context:
space:
mode:
authorClint Adams <clint@users.sourceforge.net>2000-05-26 14:08:26 +0000
committerClint Adams <clint@users.sourceforge.net>2000-05-26 14:08:26 +0000
commit5b463bddc627c274fd99beb85f4ce83f06072c0b (patch)
tree4d2fde6af380bccbc0353b956447241394c3f105 /Completion/User/_perl_modules
parentad9c7348b59fe131ef2771e720e6ac1ca60874fc (diff)
downloadzsh-5b463bddc627c274fd99beb85f4ce83f06072c0b.tar.gz
zsh-5b463bddc627c274fd99beb85f4ce83f06072c0b.tar.xz
zsh-5b463bddc627c274fd99beb85f4ce83f06072c0b.zip
11599: check for d&x bits on @INC directories in _perl_modules
Diffstat (limited to 'Completion/User/_perl_modules')
-rw-r--r--Completion/User/_perl_modules2
1 files changed, 2 insertions, 0 deletions
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#/#::#} )