From 453df705675869123675ba399f08e92ca658aa2f Mon Sep 17 00:00:00 2001
From: Oliver Kiddle <opk@users.sourceforge.net>
Date: Mon, 12 May 2003 14:03:26 +0000
Subject: merge changes from 4.1

---
 Completion/Unix/Type/_perl_basepods      | 32 ++++++++++++++++++++++++++++++++
 Completion/Unix/Type/_perl_builtin_funcs |  9 +++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 Completion/Unix/Type/_perl_basepods
 create mode 100644 Completion/Unix/Type/_perl_builtin_funcs

(limited to 'Completion/Unix/Type')

diff --git a/Completion/Unix/Type/_perl_basepods b/Completion/Unix/Type/_perl_basepods
new file mode 100644
index 000000000..1dbd92551
--- /dev/null
+++ b/Completion/Unix/Type/_perl_basepods
@@ -0,0 +1,32 @@
+#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
diff --git a/Completion/Unix/Type/_perl_builtin_funcs b/Completion/Unix/Type/_perl_builtin_funcs
new file mode 100644
index 000000000..829a53e60
--- /dev/null
+++ b/Completion/Unix/Type/_perl_builtin_funcs
@@ -0,0 +1,9 @@
+#autoload
+
+local expl
+
+: ${(A)_perl_builtin_funcs:=${(u)${${(M)${(f)"$(_call_program functions \
+    perldoc -u perlfunc 2>/dev/null)"}:#\=item [a-z]*}#* }%%[^a-z]*}}
+
+_wanted functions expl 'perl built-in function' compadd "$@" -a - \
+    _perl_builtin_funcs
-- 
cgit 1.4.1