mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-19 21:44:11 +01:00
11599: check for d&x bits on @INC directories in _perl_modules
This commit is contained in:
parent
ad9c7348b5
commit
5b463bddc6
@ -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,
|
||||
|
@ -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#/#::#} )
|
||||
|
Loading…
Reference in New Issue
Block a user