mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-09-11 00:51:05 +02:00
Code Releases Activity

Avoid cd in _perl_modules.

Browse source
This commit is contained in:
Bart Schaefer 2000-11-15 16:33:53 +00:00
parent ea807260e4
commit dcc45ed860
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
2000-11-15 Bart Schaefer <schaefer@zsh.org>
* 13167: Completion/User/_perl_modules: Avoid cd entirely.
2000-11-14 Bart Schaefer <schaefer@zsh.org> 2000-11-14 Bart Schaefer <schaefer@zsh.org>
* 13165 plus unposted: Completion/User/_perl_modules: `builtin cd' * 13165 plus unposted: Completion/User/_perl_modules: `builtin cd'

7
Completion/User/_perl_modules
View file

@ -67,13 +67,12 @@ _perl_modules () {
for libdir in $inc; do for libdir in $inc; do
# Ignore cwd - could be too expensive e.g. if we're near / # Ignore cwd - could be too expensive e.g. if we're near /
if [[ $libdir == '.' ]]; then break; fi if [[ $libdir == '.' ]]; then continue; fi
# Find all modules # Find all modules
if [[ -d $libdir && -x $libdir ]]; then if [[ -d $libdir && -x $libdir ]]; then
builtin cd $libdir new_pms=( $libdir/{[A-Z]*/***/,}*.pm~*blib* )
new_pms=( {[A-Z]*/***/,}*.pm~*blib* ) new_pms=( "${(@)new_pms##$libdir/##}" )
builtin cd $OLDPWD
fi fi
# Convert to Perl nomenclature # Convert to Perl nomenclature