diff options
| author | Sven Wischnowsky <wischnow@users.sourceforge.net> | 2001-04-02 11:39:50 +0000 |
|---|---|---|
| committer | Sven Wischnowsky <wischnow@users.sourceforge.net> | 2001-04-02 11:39:50 +0000 |
| commit | a201dea6e742b02044205cbcd0bfc6ff838a624b (patch) | |
| tree | be1101c39d5867a26d2744e9cab6c28d52775170 | |
| parent | 852ca6835090b69f7779ec0ce03ff3117ba5b830 (diff) | |
| download | zsh-a201dea6e742b02044205cbcd0bfc6ff838a624b.tar.gz zsh-a201dea6e742b02044205cbcd0bfc6ff838a624b.zip | |
moved to Completion/Unix/Type/_perl_basepods
| -rw-r--r-- | Completion/User/_perl_basepods | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/Completion/User/_perl_basepods b/Completion/User/_perl_basepods deleted file mode 100644 index 5c8034a96..000000000 --- a/Completion/User/_perl_basepods +++ /dev/null @@ -1,32 +0,0 @@ -#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 -a _perl_basepods |