Don't bother passing unused arg to _perlmodules().

This commit is contained in:
Ville Skyttä 2010-11-16 22:59:36 +02:00
parent 5b8596231c
commit 53062bbae2

View File

@ -41,7 +41,7 @@ _perl()
return 0 return 0
;; ;;
-m|-M) -m|-M)
_perlmodules "$cur" _perlmodules
return 0 return 0
;; ;;
esac esac
@ -84,7 +84,7 @@ _perldoc()
else else
# return available modules (unless it is clearly a file) # return available modules (unless it is clearly a file)
if [[ "$cur" != */* ]]; then if [[ "$cur" != */* ]]; then
_perlmodules "$cur" _perlmodules
COMPREPLY=( "${COMPREPLY[@]}" $( compgen -W \ COMPREPLY=( "${COMPREPLY[@]}" $( compgen -W \
'$( PAGER=/bin/cat man perl | \ '$( PAGER=/bin/cat man perl | \
sed -ne "/perl.*Perl overview/,/perlwin32/p" | \ sed -ne "/perl.*Perl overview/,/perlwin32/p" | \