diff options
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | 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 <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:' |