diff options
| author | Tanaka Akira <akr@users.sourceforge.net> | 1999-11-15 12:01:46 +0000 |
|---|---|---|
| committer | Tanaka Akira <akr@users.sourceforge.net> | 1999-11-15 12:01:46 +0000 |
| commit | 35b2633ad941966f5fca07b625a594a5b68c0fdb (patch) | |
| tree | b54740d014e594ba5d81931cdcdb3387bcf9dfca /Completion/User/_perl_basepods | |
| parent | bb98460a01ce1f6c1e71f7e401f782c81b71486b (diff) | |
| download | zsh-35b2633ad941966f5fca07b625a594a5b68c0fdb.tar.gz zsh-35b2633ad941966f5fca07b625a594a5b68c0fdb.tar.xz zsh-35b2633ad941966f5fca07b625a594a5b68c0fdb.zip | |
manual/8639
Diffstat (limited to 'Completion/User/_perl_basepods')
| -rw-r--r-- | Completion/User/_perl_basepods | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Completion/User/_perl_basepods b/Completion/User/_perl_basepods index 2dc0874f0..7f257aed3 100644 --- a/Completion/User/_perl_basepods +++ b/Completion/User/_perl_basepods @@ -15,18 +15,19 @@ if [[ ${+_perl_basepods} -eq 0 ]]; then _perl_basepods=( ${$(basepods):t:r} ) else local podpath + podpath=$(perl -MConfig -e 'print "$Config{installprivlib}/pod"') + if [[ ! -e $podpath/perl.pod ]]; then echo "Couldn't find perl.pod from Config.pm; giving up." return 1 else - cd $podpath - _perl_basepods=( *.pod(:r:t) ) - cd $OLDPWD + _perl_basepods=( ${podpath}/*.pod(:r:t) ) fi fi fi local expl -_description expl "Perl base pods" -compadd "$expl[@]" - $_perl_basepods + +_wanted pods expl 'Perl base pods' && + compadd "$expl[@]" - $_perl_basepods |