mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-26 12:53:13 +00:00
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.
This commit is contained in:
parent
59dd6678c3
commit
e204ced1ae
1 changed files with 1 additions and 1 deletions
|
@ -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'
|
||||
|
|
Loading…
Reference in a new issue