diff options
| author | Oliver Kiddle <opk@users.sourceforge.net> | 2000-05-23 18:06:32 +0000 |
|---|---|---|
| committer | Oliver Kiddle <opk@users.sourceforge.net> | 2000-05-23 18:06:32 +0000 |
| commit | b9195aa57d0e2f9512450b169a807ff23b31def8 (patch) | |
| tree | d252ccd479c0cf7d7a9f97a53f4f641b59ce30fe /Completion/User/_perl_modules | |
| parent | 63b7b10355ebcb9543bcb8f2f40f173de66f0740 (diff) | |
| download | zsh-b9195aa57d0e2f9512450b169a807ff23b31def8.tar.gz zsh-b9195aa57d0e2f9512450b169a807ff23b31def8.tar.xz zsh-b9195aa57d0e2f9512450b169a807ff23b31def8.zip | |
minor completion fixes (11541)
Diffstat (limited to 'Completion/User/_perl_modules')
| -rw-r--r-- | Completion/User/_perl_modules | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Completion/User/_perl_modules b/Completion/User/_perl_modules index c6ea93f4c..d63f94f1b 100644 --- a/Completion/User/_perl_modules +++ b/Completion/User/_perl_modules @@ -22,11 +22,11 @@ zparseopts -D -a opts S: q if [[ ${+_perl_modules} -eq 0 ]]; then if zstyle -t ":completion:${curcontext}:modules" try-to-use-pminst \ - && which pminst >/dev/null; then + && (( ${+commands[pminst]} )); then _perl_modules=( $(pminst) ) else local inc libdir new_pms - if which perl >/dev/null; then + if (( ${+commands[perl]} )); then inc=( $( perl -e 'print "@INC"' ) ) else # If perl isn't there, one wonders why the user's trying to |