|
Server : Apache/2.2.17 (Unix) mod_ssl/2.2.17 OpenSSL/0.9.8e-fips-rhel5 DAV/2 PHP/5.2.17 System : Linux localhost 2.6.18-419.el5 #1 SMP Fri Feb 24 22:47:42 UTC 2017 x86_64 User : nobody ( 99) PHP Version : 5.2.17 Disable Function : NONE Directory : /proc/21585/root/usr/share/zsh/4.2.6/functions/ |
Upload File : |
#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 )); 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
_message "can'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 -a - _perl_basepods