From a201dea6e742b02044205cbcd0bfc6ff838a624b Mon Sep 17 00:00:00 2001 From: Sven Wischnowsky Date: Mon, 2 Apr 2001 11:39:50 +0000 Subject: [PATCH] moved to Completion/Unix/Type/_perl_basepods --- Completion/User/_perl_basepods | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 Completion/User/_perl_basepods 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 -# -# 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