From 84c856aa008c3466646854d23726225781b042dd Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@users.sourceforge.net>
Date: Tue, 29 May 2001 14:35:52 +0000
Subject: 14538: cleaner _perl_config_vars from Matt Zimmerman

---
 Completion/Unix/Command/_perl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'Completion/Unix/Command/_perl')

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:'
-- 
cgit 1.4.1