about summary refs log tree commit diff
path: root/Completion/Unix
diff options
context:
space:
mode:
authorClint Adams <clint@users.sourceforge.net>2001-05-29 14:35:52 +0000
committerClint Adams <clint@users.sourceforge.net>2001-05-29 14:35:52 +0000
commit84c856aa008c3466646854d23726225781b042dd (patch)
tree0290f18442ba8b681b9e75766028419546ca9784 /Completion/Unix
parent99ed055497948dc7a00fabab7d1ea155f83f3111 (diff)
downloadzsh-84c856aa008c3466646854d23726225781b042dd.tar.gz
zsh-84c856aa008c3466646854d23726225781b042dd.tar.xz
zsh-84c856aa008c3466646854d23726225781b042dd.zip
14538: cleaner _perl_config_vars from Matt Zimmerman
Diffstat (limited to 'Completion/Unix')
-rw-r--r--Completion/Unix/Command/_perl5
1 files changed, 1 insertions, 4 deletions
diff --git a/Completion/Unix/Command/_perl b/Completion/Unix/Command/_perl
index 64163c3a1..ff97edb5f 100644
--- a/Completion/Unix/Command/_perl
+++ b/Completion/Unix/Command/_perl
@@ -46,10 +46,7 @@ _perl_m_opt () {
 
 _perl_config_vars () {
   if (( ! $+_perl_config_vars )); then
-    # perl | perl ... nasty, but is there another way?
-    _perl_config_vars=( $(perl -V |
-			    perl -ne 'push @m, (/(\w+)(?==)/g);' \
-			         -e  'END {print join "\n", @m}' ) )
+    _perl_config_vars=( $(perl -MConfig -e 'print join("\n", keys %Config);') )
   fi
 
   local add_colon='-P:'