This file is indexed.

/etc/bash_completion.d/perl is in bash-completion 1:1.3-1ubuntu8.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
# bash completion for perl

have perl &&
{
_perlmodules()
{
    COMPREPLY=( $( compgen -P "$prefix" -W "$( $1 ${BASH_SOURCE[0]%/*}/helpers/perl modules $cur )" -- "$cur" ) )
    __ltrim_colon_completions "$prefix$cur"
}

_perlfunctions()
{
    COMPREPLY=( $( compgen -P "$prefix" -W "$( ${BASH_SOURCE[0]%/*}/helpers/perl functions $cur )" -- "$cur" ) )
}

_perl()
{
    local cur prev prefix temp
    local optPrefix optSuffix

    COMPREPLY=()
    _get_comp_words_by_ref -n : cur prev
    prefix=""

    # If option not followed by whitespace, reassign prev and cur
    if [[ "$cur" == -?* ]]; then
        temp=$cur
        prev=${temp:0:2}
        cur=${temp:2}
        optPrefix=-P$prev
        optSuffix=-S/
        prefix=$prev
    fi

    case $prev in
        -D|-e|-E|-i|-F|-l)
            return 0
            ;;
        -I|-x)
            local IFS=$'\n'
            _compopt_o_filenames
            COMPREPLY=( $( compgen -d $optPrefix $optSuffix -- "$cur" ) )
            return 0
            ;;
        -m|-M)
            temp="${cur#-}"
            prefix="$prefix${cur%$temp}"
            cur="$temp"
            _perlmodules $1
            return 0
            ;;
        -V)
            if [[ $cur == :* ]]; then
                temp="${cur##+(:)}"
                prefix="$prefix${cur%$temp}"
                local IFS=$'\n'
                COMPREPLY=( $( compgen -P "$prefix" -W \
                    '$( $1 -MConfig -e "print join \"\\n\",
                        keys %Config::Config" 2>/dev/null )' -- "$temp" ) )
                __ltrim_colon_completions "$prefix$temp"
            fi
            return 0
            ;;
        -d|-dt)
            if [[ $cur == :* ]]; then
                temp="${cur#:}"
                prefix="$prefix${cur%$temp}"
                cur="Devel::$temp"
                _perlmodules $1
            fi
            return 0
            ;;
    esac

    if [[ "$cur" == -* ]]; then
        COMPREPLY=( $( compgen -W '-C -s -T -u -U -W -X -h -v -V -c -w -d \
            -D -p -n -a -F -l -0 -I -m -M -P -S -x -i -e ' -- "$cur" ) )
    else
        _filedir
    fi
}
complete -F _perl perl

_perldoc()
{
    local cur prev prefix temp

    COMPREPLY=()
    _get_comp_words_by_ref -n : cur prev
    prefix=""

    # completing an option (may or may not be separated by a space)
    if [[ "$cur" == -?* ]]; then
        temp=$cur
        prev=${temp:0:2}
        cur=${temp:2}
        prefix=$prev
    fi

    # complete builtin perl functions
    case $prev in
        -f)
            _perlfunctions "$cur"
             return 0
            ;;
    esac

    if [[ "$cur" == -* ]]; then
        COMPREPLY=( $( compgen -W '-h -v -t -u -m -l -F -X -f -q' -- "$cur" ))
    else
        # return available modules (unless it is clearly a file)
        if [[ "$cur" != */* ]]; then
            _perlmodules
            COMPREPLY=( "${COMPREPLY[@]}" $( compgen -W \
                '$( MANPAGER=/bin/cat PAGER=/bin/cat man perl |  \
                sed -ne "/perl.*Perl overview/,/perlwin32/p" | \
                awk "\$NF=2 { print \$1}" | command grep perl )' -- "$cur" ) )
        fi
        _filedir 'p@(l|m|od)'
    fi
}
complete -F _perldoc -o bashdefault perldoc
}

# Local variables:
# mode: shell-script
# sh-basic-offset: 4
# sh-indent-comment: t
# indent-tabs-mode: nil
# End:
# ex: ts=4 sw=4 et filetype=sh