diff options
| author |  Konrad Borowski <glitchmr@myopera.com> | 2013-10-25 19:36:10 +0200 |
|---|---|---|
| committer | Konrad Borowski <glitchmr@myopera.com> | 2013-10-25 19:36:10 +0200 |
| commit | e204ced1aef4381c74787680b8653f049d125094 (patch) | |
| tree | 9cb4f63ef350510b95548b4071149dbe16b24fb0 /share | |
| parent | 59dd6678c3dff58f778494641682188f006dae88 (diff) | |
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.
Diffstat (limited to 'share')
| -rw-r--r-- | share/completions/perl.fish | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/completions/perl.fish b/share/completions/perl.fish index 6266981d..cb4a543f 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' |