diff options
| author | Clint Adams <clint@users.sourceforge.net> | 2000-05-26 14:08:26 +0000 |
|---|---|---|
| committer | Clint Adams <clint@users.sourceforge.net> | 2000-05-26 14:08:26 +0000 |
| commit | 5b463bddc627c274fd99beb85f4ce83f06072c0b (patch) | |
| tree | 4d2fde6af380bccbc0353b956447241394c3f105 | |
| parent | ad9c7348b59fe131ef2771e720e6ac1ca60874fc (diff) | |
| download | zsh-5b463bddc627c274fd99beb85f4ce83f06072c0b.tar.gz zsh-5b463bddc627c274fd99beb85f4ce83f06072c0b.zip | |
11599: check for d&x bits on @INC directories in _perl_modules
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | Completion/User/_perl_modules | 2 |
2 files changed, 8 insertions, 0 deletions
@@ -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#/#::#} ) |