Don't bother passing unused arg to _perlmodules().
This commit is contained in:
parent
5b8596231c
commit
53062bbae2
@ -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" | \
|
||||||
|
Loading…
x
Reference in New Issue
Block a user