diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | Completion/User/_perl_modules | 2 |
2 files changed, 8 insertions, 0 deletions
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#/#::#} ) |