summaryrefslogtreecommitdiff
path: root/Completion/User/_perl_modules
diff options
context:
space:
mode:
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#/#::#} )