mirror of
https://github.com/fish-shell/fish-shell
synced 2024-11-13 16:37:34 +00:00
e204ced1ae
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.
47 lines
3.4 KiB
Fish
47 lines
3.4 KiB
Fish
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)"
|
|
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'
|
|
complete -c perl -s C -n $noopt --description 'Control Unicode features'
|
|
complete -c perl -s Ca -n $unicode --description 'Debug UTF-8 cache'
|
|
complete -c perl -s CA -n $unicode --description 'ARGV uses UTF-8'
|
|
complete -c perl -s CD -n $unicode --description 'Opened filehandles are UTF-8'
|
|
complete -c perl -s CE -n $unicode --description 'STDERR is UTF-8'
|
|
complete -c perl -s Ci -n $unicode --description 'Filehandles that are read are UTF-8'
|
|
complete -c perl -s CI -n $unicode --description 'STDIN is UTF-8'
|
|
complete -c perl -s CL -n $unicode --description 'Enable Unicode conditionally'
|
|
complete -c perl -s Co -n $unicode --description 'Filehandles written to are UTF-8'
|
|
complete -c perl -s CO -n $unicode --description 'STDOUT is UTF-8'
|
|
complete -c perl -s CS -n $unicode --description 'STDOUT, STDIN, and STDERR are UTF-8'
|
|
complete -c perl -s d -n $noopt --description 'Debugger'
|
|
complete -c perl -s dt -n 'commandline | sgrep -qe "d\$"' --description 'Debugger, with threads'
|
|
complete -c perl -s D -n $noopt -x --description 'Debug option'
|
|
complete -c perl -s e -n $noopt -x --description 'Execute command'
|
|
complete -c perl -s E -n $noopt -x --description 'Execute command, enable optional features'
|
|
complete -c perl -s f -n $noopt --description 'Disable sitecustomize.pl'
|
|
complete -c perl -s F -n $noopt -x --description 'Set regexp used to split input'
|
|
complete -c perl -s h -n $noopt --description 'Show help and exit'
|
|
complete -c perl -s i -n $noopt -x --description 'Edit files in-place'
|
|
complete -c perl -s I -n $noopt -r --description 'Include path'
|
|
complete -c perl -s l -n $noopt --description 'Automatic line ending processing'
|
|
complete -c perl -s m -n $noopt -x --description 'Require module' -a $modules
|
|
complete -c perl -s M -n $noopt -x --description 'Use module' -a $modules
|
|
complete -c perl -s n -n $noopt --description 'Loop script'
|
|
complete -c perl -s p -n $noopt --description 'Loop script, print $_'
|
|
complete -c perl -s s -n $noopt --description 'Define custom switches'
|
|
complete -c perl -s S -n $noopt --description 'Search $PATH for script'
|
|
complete -c perl -s t -n $noopt --description 'Taint checking, but only with warnings'
|
|
complete -c perl -s T -n $noopt --description 'Taint checking'
|
|
complete -c perl -s u -n $noopt --description 'Dump core'
|
|
complete -c perl -s U -n $noopt --description 'Unsafe mode'
|
|
complete -c perl -s v -n $noopt --description 'Display version and exit'
|
|
complete -c perl -s V -n $noopt --description 'Display configuration and exit'
|
|
complete -c perl -s w -n $noopt --description 'Show warnings'
|
|
complete -c perl -s W -n $noopt --description 'Force warnings'
|
|
complete -c perl -s X -n $noopt --description 'Disable warnings'
|
|
complete -c perl -s x -n $noopt -r --description 'Extract script'
|
|
end
|