perldoc: Use perldoc itself instead of man.

This commit is contained in:
Ville Skyttä 2011-05-08 23:12:30 +03:00
parent 923e20fd74
commit bc6fb7d711

View File

@ -117,7 +117,7 @@ _perldoc()
_perlmodules $perl _perlmodules $perl
if [[ $cur == p* ]]; then if [[ $cur == p* ]]; then
COMPREPLY+=( $( compgen -W \ COMPREPLY+=( $( compgen -W \
'$( MANPAGER=/bin/cat PAGER=/bin/cat man perl | \ '$( PERLDOC_PAGER=/bin/cat "$1" -u perl | \
sed -ne "/perl.*Perl overview/,/perlwin32/p" | \ sed -ne "/perl.*Perl overview/,/perlwin32/p" | \
awk "\$NF=2 && \$1 ~ /^perl/ { print \$1 }" )' \ awk "\$NF=2 && \$1 ~ /^perl/ { print \$1 }" )' \
-- "$cur" ) ) -- "$cur" ) )