Shorter perl one-liner in _gpgconf

2021-02-04 14:45:30 +00:00 · 2021-02-04 14:45:30 +00:00 · ab80ddd379
parent a1d53f8824
commit ab80ddd379
1 changed files with 1 additions and 2 deletions
--- a/src/_gpgconf
+++ b/src/_gpgconf
@ -8,8 +8,7 @@

 _gpgconf_component() {
  local values=(
-    "${(@f)$(gpgconf --list-components \
-        | perl -lne 'my ($name, $desc, $x) = split /:/; print "${name}[$desc]"')}"
+    "${(@f)$(gpgconf --list-components | perl -F: -ale 'print "${F[0]}[$F[1]]"')}"
  )
  if [ "${action[2]}" = all ]; then
    values+=('all[All daemon components]')