diff options
Diffstat (limited to 'Completion')
| -rw-r--r-- | Completion/Unix/Command/_perl | 5 |
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:' |