From e204ced1aef4381c74787680b8653f049d125094 Mon Sep 17 00:00:00 2001 From: Konrad Borowski Date: Fri, 25 Oct 2013 19:36:10 +0200 Subject: [PATCH] Disallow package names with dots. They cannot be used as arguments (Perl thinks it's version check, but version checks are pointless for oneliners), and Debian puts path containing version depending directories (like 5.14.2) in Perl path. --- share/completions/perl.fish | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/completions/perl.fish b/share/completions/perl.fish index 6266981d8..cb4a543ff 100644 --- a/share/completions/perl.fish +++ b/share/completions/perl.fish @@ -2,7 +2,7 @@ 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)" + | 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'