diff options
| author | Mathieu Arnold <mat@FreeBSD.org> | 2015-04-27 14:32:09 +0000 |
|---|---|---|
| committer | Mathieu Arnold <mat@FreeBSD.org> | 2015-04-27 14:32:09 +0000 |
| commit | 500e6a241ea84dfddda8b55d5545e37d3f75322b (patch) | |
| tree | 50a25394a869ff9cea38172102e9d7afd8ad8367 /lang/perl5.16/files | |
| parent | Bump portrevision after revert as some people did managed to build the _2 ver... (diff) | |
Have perldoc use mandoc before *roff. Also, fix perldoc when using more as a
pager.
Differential Revision: https://reviews.freebsd.org/D2373
With hat: perl@
Sponsored by: Absolight
Notes
Notes:
svn path=/head/; revision=384837
Diffstat (limited to 'lang/perl5.16/files')
3 files changed, 34 insertions, 0 deletions
diff --git a/lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm b/lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm new file mode 100644 index 000000000000..3bad7f0d406e --- /dev/null +++ b/lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm @@ -0,0 +1,13 @@ +--- cpan/Pod-Perldoc/lib/Pod/Perldoc.pm.orig 2013-03-04 15:16:21 UTC ++++ cpan/Pod-Perldoc/lib/Pod/Perldoc.pm +@@ -1754,6 +1754,10 @@ sub page { # apply a pager to the outpu + if ($self->is_vms) { + last if system("$pager $output") == 0; + } else { ++ # fix visible escape codes in ToTerm output ++ # https://bugs.debian.org/758689 ++ local $ENV{LESS} = defined $ENV{LESS} ? "$ENV{LESS} -R" : "-R"; ++ local $ENV{MORE} = defined $ENV{MORE} ? "$ENV{MORE} -R" : "-R"; + last if system("$pager \"$output\"") == 0; + } + } diff --git a/lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm b/lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm new file mode 100644 index 000000000000..56c82c0fd3e9 --- /dev/null +++ b/lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm @@ -0,0 +1,10 @@ +--- cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm.orig 2013-03-04 15:16:21 UTC ++++ cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm +@@ -33,6 +33,7 @@ BEGIN { + *is_linux = $^O eq 'linux' ? \&TRUE : \&FALSE unless defined &is_linux; + *is_hpux = $^O =~ m/hpux/ ? \&TRUE : \&FALSE unless defined &is_hpux; + *is_openbsd = $^O =~ m/openbsd/ ? \&TRUE : \&FALSE unless defined &is_openbsd; ++ *is_freebsd = $^O =~ m/freebsd/ ? \&TRUE : \&FALSE unless defined &is_freebsd; + } + + sub _perldoc_elem { diff --git a/lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm b/lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm new file mode 100644 index 000000000000..505778fca544 --- /dev/null +++ b/lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm @@ -0,0 +1,11 @@ +--- cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig 2013-03-04 15:16:21 UTC ++++ cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm +@@ -63,7 +63,7 @@ sub init { + sub _roffer_candidates { + my( $self ) = @_; + +- if( $self->is_openbsd ) { qw( mandoc groff nroff ) } ++ if( $self->is_openbsd || $self->is_freebsd ) { qw( mandoc groff nroff ) } + else { qw( groff nroff mandoc ) } + } + |