diff options
Diffstat (limited to 'share/completions/perl.fish')
| -rw-r--r-- | share/completions/perl.fish | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/completions/perl.fish b/share/completions/perl.fish index 6266981d..e7ee3f68 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' |