One Hat Cyber Team

Your IP : 216.73.216.178

Server IP : 178.162.244.166

Server : Linux flexi.hostpinnacleservers.com 5.14.0-611.30.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Feb 11 06:42:00 EST 2026 x86_64

Server Software : Apache

PHP Version : 8.1.34

Buat File | Buat Folder

View File Name : perltidy

# perltidy(1) completion                                   -*- shell-script -*-

_perltidy()
{
    local cur prev words cword
    _init_completion -n = || return

    case $prev in
        -h | --help)
            return
            ;;
        -o)
            _filedir
            return
            ;;
    esac

    case $cur in
        -pro=*)
            cur="${cur#*=}"
            _filedir
            return
            ;;
        -ole=*)
            COMPREPLY=($(compgen -W 'dos win mac unix' -- "${cur#*=}"))
            return
            ;;
        -bt=* | -pt=* | -sbt=* | -bvt=* | -pvt=* | -sbvt=* | -bvtc=* | -pvtc=* | -sbvtc=* | \
            -cti=* | -kbl=* | -vt=*)
            COMPREPLY=($(compgen -W '0 1 2' -- "${cur#*=}"))
            return
            ;;
        -vtc=*)
            COMPREPLY=($(compgen -W '0 1' -- "${cur#*=}"))
            return
            ;;
        -cab=*)
            COMPREPLY=($(compgen -W '0 1 2 3' -- "${cur#*=}"))
            return
            ;;
        -*=)
            return
            ;;
    esac

    if [[ $cur == -* ]]; then
        COMPREPLY=($(compgen -W '$(_parse_help "$1")' -- "$cur"))
        [[ ${COMPREPLY-} == *= ]] && compopt -o nospace
    else
        _filedir 'p[lm]|t'
    fi
} &&
    complete -F _perltidy perltidy

# ex: filetype=sh