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 /Completion/User/_perl_modules | |
| parent | ad9c7348b59fe131ef2771e720e6ac1ca60874fc (diff) | |
| download | zsh-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_modules | 2 |
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#/#::#} ) |