diff options
| author | Clint Adams <clint@users.sourceforge.net> | 2001-05-29 14:35:52 +0000 |
|---|---|---|
| committer | Clint Adams <clint@users.sourceforge.net> | 2001-05-29 14:35:52 +0000 |
| commit | 84c856aa008c3466646854d23726225781b042dd (patch) | |
| tree | 0290f18442ba8b681b9e75766028419546ca9784 /Completion | |
| parent | 99ed055497948dc7a00fabab7d1ea155f83f3111 (diff) | |
| download | zsh-84c856aa008c3466646854d23726225781b042dd.tar.gz zsh-84c856aa008c3466646854d23726225781b042dd.tar.xz zsh-84c856aa008c3466646854d23726225781b042dd.zip | |
14538: cleaner _perl_config_vars from Matt Zimmerman
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:' |