From e6d33f77da8cc36786c814f499f6cb3405e8c4c1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Slaven=20Rezi=C4=87?= <srezic@cpan.org>
Date: Fri, 24 Apr 2020 15:56:55 +0200
Subject: [PATCH] [zsh] Make CTRL-R work with older Perls (#2003)

s///r is only available since perl 5.14. The Perl oneliner
was changed to work with older Perls, possibly even with 5.000.

Fix #2001
---
 shell/key-bindings.zsh | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100644 => 100755 shell/key-bindings.zsh

diff --git a/shell/key-bindings.zsh b/shell/key-bindings.zsh
old mode 100644
new mode 100755
index 19608926..74ce9b71
--- a/shell/key-bindings.zsh
+++ b/shell/key-bindings.zsh
@@ -100,7 +100,7 @@ bindkey '\ec' fzf-cd-widget
 fzf-history-widget() {
   local selected num
   setopt localoptions noglobsubst noposixbuiltins pipefail no_aliases 2> /dev/null
-  selected=( $(fc -rl 1 | perl -ne 'print if !$seen{($_ =~ s/^\s*[0-9]+\s+//r)}++' |
+  selected=( $(fc -rl 1 | perl -ne 'print if !$seen{(/^\s*[0-9]+\s+(.*)/, $1)}++' |
     FZF_DEFAULT_OPTS="--height ${FZF_TMUX_HEIGHT:-40%} $FZF_DEFAULT_OPTS -n2..,.. --tiebreak=index --bind=ctrl-r:toggle-sort $FZF_CTRL_R_OPTS --query=${(qqq)LBUFFER} +m" $(__fzfcmd)) )
   local ret=$?
   if [ -n "$selected" ]; then