From d48c8729136335b1b340ae5bb1a0b107bce29cd5 Mon Sep 17 00:00:00 2001 From: Kurtis Rader Date: Sat, 15 Apr 2017 20:59:09 -0700 Subject: [PATCH] a step to remove __fish_sgrep per issue #2450 --- share/completions/perl.fish | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/share/completions/perl.fish b/share/completions/perl.fish index 18c7c4097..f595fa6f1 100644 --- a/share/completions/perl.fish +++ b/share/completions/perl.fish @@ -6,8 +6,8 @@ # done by the module detection really needs to be done every time the completion is invoked is # unclear. See issue #3856. begin - set -l unicode 'commandline | __fish_sgrep -qe "-[a-zA-Z]*C[a-zA-Z]*\$"' - set -l noopt 'commandline | not __fish_sgrep -qe "-[a-zA-Z]*C[a-zA-Z]*\$"' + set -l unicode 'commandline | string match -qr -- "-[a-zA-Z]*C[a-zA-Z]*\$"' + set -l noopt 'commandline | not string match -qr -- "-[a-zA-Z]*C[a-zA-Z]*\$"' set -l modules "(find (perl -lE'print for @INC') -name '*.pm' -printf '%P\n' ^/dev/null \ | sed -e 's,/,::,g; s,\.pm\$,,' | sort -u)" complete -c perl -s 0 -n $noopt --description 'Specify record separator' @@ -25,7 +25,7 @@ begin complete -c perl -s CO -n $unicode --description 'STDOUT is UTF-8' complete -c perl -s CS -n $unicode --description 'STDOUT, STDIN, and STDERR are UTF-8' complete -c perl -s d -n $noopt --description 'Debugger' - complete -c perl -s dt -n 'commandline | __fish_sgrep -qe "d\$"' --description 'Debugger, with threads' + complete -c perl -s dt -n 'commandline | string match -qr "d\$"' --description 'Debugger, with threads' complete -c perl -s D -n $noopt -x --description 'Debug option' complete -c perl -s e -n $noopt -x --description 'Execute command' complete -c perl -s E -n $noopt -x --description 'Execute command, enable optional features'