summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog2
-rw-r--r--Completion/Unix/Command/_perl5
2 files changed, 3 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 463025603..61c52997a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2001-05-29  Clint Adams  <clint@zsh.org>
 
+	* 14538: cleaner _perl_config_vars from Matt Zimmerman.
+
 	* 14536: Completion/Debian/Command/_update-alternatives:
 	loop for multiple --slaves thanks to Sven.
 
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:'