From 84c856aa008c3466646854d23726225781b042dd Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Tue, 29 May 2001 14:35:52 +0000 Subject: 14538: cleaner _perl_config_vars from Matt Zimmerman --- ChangeLog | 2 ++ Completion/Unix/Command/_perl | 5 +---- 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 + * 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:' -- cgit 1.4.1