diff options
| author |  Konrad Borowski <x.fix@o2.pl> | 2014-10-04 11:21:58 +0200 |
|---|---|---|
| committer | Konrad Borowski <x.fix@o2.pl> | 2014-10-04 11:22:56 +0200 |
| commit | 1665f84d60ea136dfe581513310b68d36a6d1a8b (patch) | |
| tree | 4d1205621709a979057c083ac9b1ba4db798ebe2 /share/completions/perl.fish | |
| parent | fabee7e246f9346924d207a945fc754bcc99e62e (diff) | |
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.
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 cb4a543f..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' |