From 1665f84d60ea136dfe581513310b68d36a6d1a8b Mon Sep 17 00:00:00 2001 From: Konrad Borowski Date: Sat, 4 Oct 2014 11:21:58 +0200 Subject: [PATCH] Fix Perl module completions. This fixes the issue with nonexistant directories (some Linux distributions put these for local modules), and also fixes the issue of dot meaning any character instead of simply dot. --- share/completions/perl.fish | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/completions/perl.fish b/share/completions/perl.fish index cb4a543ff..e7ee3f68a 100644 --- a/share/completions/perl.fish +++ b/share/completions/perl.fish @@ -1,8 +1,8 @@ begin set -l unicode 'commandline | sgrep -qe "-[a-zA-Z]*C[a-zA-Z]*\$"' set -l noopt 'commandline | not sgrep -qe "-[a-zA-Z]*C[a-zA-Z]*\$"' - set -l modules "(find (perl -lE'print for @INC') -name '*.pm' -printf '%P\n' \ - | awk '{ gsub(\"/\", \"::\") } /[^-.]/' RS=.pm\n | sort | uniq)" + set -l modules "(find (perl -lE'print for @INC') -name '*.pm' -printf '%P\n' ^/dev/null \ + | awk '{ gsub(\"/\", \"::\") } /[^-.]/' RS='\\\\\\\\.pm'\n | sort | uniq)" complete -c perl -s 0 -n $noopt --description 'Specify record separator' complete -c perl -s a -n $noopt --description 'Turn on autosplit mode' complete -c perl -s c -n $noopt --description 'Check syntax'