diff options
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 |