mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-20 14:04:03 +01:00
33 lines
716 B
Plaintext
33 lines
716 B
Plaintext
#autoload
|
|
#
|
|
# _perl_basepods - zsh completion function
|
|
#
|
|
# Adam Spiers <adam@spiers.net>
|
|
#
|
|
# Calculate all installed Perl base pods (perlfunc, perlfaq etc.).
|
|
# The result is cached for future use.
|
|
#
|
|
|
|
if [[ ${+_perl_basepods} -eq 0 ]]; then
|
|
typeset -agU _perl_basepods
|
|
|
|
if (( ${+commands[basepods]} )); 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
|
|
_perl_basepods=( ${podpath}/*.pod(:r:t) )
|
|
fi
|
|
fi
|
|
fi
|
|
|
|
local expl
|
|
|
|
_wanted pods expl 'Perl base pods' compadd - $_perl_basepods
|