Linux ip-172-26-7-228 5.4.0-1103-aws #111~18.04.1-Ubuntu SMP Tue May 23 20:04:10 UTC 2023 x86_64
Your IP : 3.141.32.252
# bash completion for cpan2dist -*- shell-script -*-
_cpan2dist()
{
local cur prev words cword
_init_completion || return
case $prev in
--format)
# should remove ":" from COMP_WORDBREAKS, but doesn't work (?)
COMPREPLY=( $( compgen -W '$(perl -MCPANPLUS::Dist -e \
"print map { \"\$_\n\" } CPANPLUS::Dist->dist_types")' \
-- "$cur" ) )
return 0
;;
--banlist|--ignorelist|--modulelist|--logfile)
_filedir
return 0
;;
esac
if [[ "$cur" == -* ]]; then
COMPREPLY=( $( compgen -W '$( _parse_help "$1" )' -- "$cur" ) )
else
local cpandirs=( "$HOME/.cpanplus/" "$HOME/.cpan/source/modules/" )
local packagelist
for dir in ${cpandirs[@]}; do
[[ -d "$dir" && -r "$dir/02packages.details.txt.gz" ]] && \
packagelist="$dir/02packages.details.txt.gz"
done
[[ $packagelist ]] && COMPREPLY=( $( zgrep "^${cur//-/::}" \
$packagelist 2>/dev/null | awk '{print $1}' | sed -e 's/::/-/g' ) )
fi
} &&
complete -F _cpan2dist -o default cpan2dist
# ex: ts=4 sw=4 et filetype=sh
|