about summary refs log tree commit diff
path: root/Completion/Unix/Command/_perl
diff options
context:
space:
mode:
authorDaniel Shahaf <d.s@daniel.shahaf.name>2016-09-28 17:46:37 +0000
committerDaniel Shahaf <d.s@daniel.shahaf.name>2016-10-07 13:56:31 +0000
commit7ad0001183688c56bd1edfc8fc08467e380910a4 (patch)
tree7df8833fee6f39f5a77dacec68f5824077418886 /Completion/Unix/Command/_perl
parenta96e34b459d55240b0f4af37ac73aca916720883 (diff)
downloadzsh-7ad0001183688c56bd1edfc8fc08467e380910a4.tar.gz
zsh-7ad0001183688c56bd1edfc8fc08467e380910a4.tar.xz
zsh-7ad0001183688c56bd1edfc8fc08467e380910a4.zip
39479 + 39481 minus _path_files hunk (see 39489): Completion: audit 'compset -P' calls to use shortest match where applicable, plus random drive-by tweaks.
Found by grepping for patterns that can match needles of various lengths:

    :grep 'compset -[PS].*[\#^*()\|<>?~\]' Completion/
Diffstat (limited to 'Completion/Unix/Command/_perl')
-rw-r--r--Completion/Unix/Command/_perl2
1 files changed, 1 insertions, 1 deletions
diff --git a/Completion/Unix/Command/_perl b/Completion/Unix/Command/_perl
index 52559b800..0914264fe 100644
--- a/Completion/Unix/Command/_perl
+++ b/Completion/Unix/Command/_perl
@@ -56,7 +56,7 @@ _perl_normal() {
 _perl_m_opt () {
   compset -P '-'
 
-  if compset -P '*='; then
+  if compset -P 1 '*='; then
     _message -e module-arguments 'module arguments, comma separated'
   else
     _perl_modules -S= -q