diff options
| author | David Paleino <dapal@debian.org> | 2012-01-08 00:19:18 +0100 |
|---|---|---|
| committer | David Paleino <dapal@debian.org> | 2012-01-08 00:19:18 +0100 |
| commit | c3d398fcc6e400be546c28eb1fc25abfa5816eac (patch) | |
| tree | 3266a00f1037eb5522f1f8bf1a73e443ab2c26c4 /completions/perl | |
| parent | 2c8171c38d87ddef31c92a76547d3fdf773a1337 (diff) | |
| download | bash-completion-c3d398fcc6e400be546c28eb1fc25abfa5816eac.tar.gz | |
Imported Upstream version 1.99upstream/1.99
Diffstat (limited to 'completions/perl')
| -rw-r--r-- | completions/perl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/completions/perl b/completions/perl index a67c7699..8b296377 100644 --- a/completions/perl +++ b/completions/perl @@ -99,16 +99,22 @@ _perldoc() local perl="${1%doc}" [[ $perl == $1 ]] || ! type $perl &>/dev/null && perl= - # complete builtin perl functions case $prev in + -h|-V|-n|-o|-M|-w|-L) + return 0 + ;; + -d) + _filedir + return 0 + ;; -f) _perlfunctions $perl - return 0 + return 0 ;; esac if [[ "$cur" == -* ]]; then - COMPREPLY=( $( compgen -W '-h -v -t -u -m -l -F -X -f -q' -- "$cur" )) + COMPREPLY=( $( compgen -W '$( _parse_help "$1" -h )' -- "$cur" ) ) else # return available modules (unless it is clearly a file) if [[ "$cur" != @(*/|[.~])* ]]; then |