Page Menu
Home
FreeBSD
Search
Configure Global Search
Log In
Files
F106047075
D2373.diff
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Flag For Later
Award Token
Size
11 KB
Referenced Files
None
Subscribers
None
D2373.diff
View Options
Index: lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
===================================================================
--- /dev/null
+++ lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
@@ -0,0 +1,10 @@
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc.pm.orig 2015-04-27 14:10:52 UTC
++++ cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
+@@ -1920,6 +1920,7 @@ sub page { # apply a pager to the outpu
+ # 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;
+ }
+ }
Index: lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm
===================================================================
--- /dev/null
+++ lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm
@@ -0,0 +1,10 @@
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm.orig 2015-04-26 15:40: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;
+ *is_bitrig = $^O =~ m/bitrig/ ? \&TRUE : \&FALSE unless defined &is_bitrig;
+ }
+
Index: lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
===================================================================
--- /dev/null
+++ lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
@@ -0,0 +1,11 @@
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig 2015-04-26 15:40: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 || $self->is_bitrig ) { qw( mandoc groff nroff ) }
++ if( $self->is_openbsd || $self->is_freebsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
+ else { qw( groff nroff mandoc ) }
+ }
+
Index: lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
===================================================================
--- /dev/null
+++ 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;
+ }
+ }
Index: lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm
===================================================================
--- /dev/null
+++ 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 {
Index: lang/perl5.16/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
===================================================================
--- /dev/null
+++ 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 ) }
+ }
+
Index: lang/perl5.18/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
===================================================================
--- /dev/null
+++ lang/perl5.18/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
@@ -0,0 +1,13 @@
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc.pm.orig 2014-10-01 01:32:59 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;
+ }
+ }
Index: lang/perl5.18/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm
===================================================================
--- /dev/null
+++ lang/perl5.18/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm
@@ -0,0 +1,10 @@
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm.orig 2014-10-01 01:32:59 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 {
Index: lang/perl5.18/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
===================================================================
--- /dev/null
+++ lang/perl5.18/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
@@ -0,0 +1,11 @@
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig 2014-10-01 01:32:59 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_freebsd || $self->is_openbsd ) { qw( mandoc groff nroff ) }
+ else { qw( groff nroff mandoc ) }
+ }
+
Index: lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
===================================================================
--- /dev/null
+++ lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
@@ -0,0 +1,13 @@
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc.pm.orig 2014-12-27 11:49:22 UTC
++++ cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
+@@ -1892,6 +1892,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;
+ }
+ }
Index: lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm
===================================================================
--- /dev/null
+++ lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_BaseTo.pm
@@ -0,0 +1,10 @@
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm.orig 2014-12-27 11:49:22 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;
+ *is_bitrig = $^O =~ m/bitrig/ ? \&TRUE : \&FALSE unless defined &is_bitrig;
+ }
+
Index: lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
===================================================================
--- /dev/null
+++ lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
@@ -0,0 +1,11 @@
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig 2014-12-27 11:49:22 UTC
++++ cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
+@@ -63,7 +63,7 @@ sub init {
+ sub _roffer_candidates {
+ my( $self ) = @_;
+
+- if( $self->is_openbsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
++ if( $self->is_openbsd || $self->is_freebsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
+ else { qw( groff nroff mandoc ) }
+ }
+
Index: textproc/p5-Pod-Perldoc/files/patch-lib_Pod_Perldoc.pm
===================================================================
--- /dev/null
+++ textproc/p5-Pod-Perldoc/files/patch-lib_Pod_Perldoc.pm
@@ -0,0 +1,10 @@
+--- lib/Pod/Perldoc.pm.orig 2015-02-12 03:07:39 UTC
++++ lib/Pod/Perldoc.pm
+@@ -1920,6 +1920,7 @@ sub page { # apply a pager to the outpu
+ # 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;
+ }
+ }
Index: textproc/p5-Pod-Perldoc/files/patch-lib_Pod_Perldoc_BaseTo.pm
===================================================================
--- /dev/null
+++ textproc/p5-Pod-Perldoc/files/patch-lib_Pod_Perldoc_BaseTo.pm
@@ -0,0 +1,10 @@
+--- lib/Pod/Perldoc/BaseTo.pm.orig 2015-02-12 03:07:51 UTC
++++ 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;
+ *is_bitrig = $^O =~ m/bitrig/ ? \&TRUE : \&FALSE unless defined &is_bitrig;
+ }
+
Index: textproc/p5-Pod-Perldoc/files/patch-lib_Pod_Perldoc_ToMan.pm
===================================================================
--- /dev/null
+++ textproc/p5-Pod-Perldoc/files/patch-lib_Pod_Perldoc_ToMan.pm
@@ -0,0 +1,11 @@
+--- lib/Pod/Perldoc/ToMan.pm.orig 2015-02-12 03:08:10 UTC
++++ lib/Pod/Perldoc/ToMan.pm
+@@ -63,7 +63,7 @@ sub init {
+ sub _roffer_candidates {
+ my( $self ) = @_;
+
+- if( $self->is_openbsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
++ if( $self->is_openbsd || $self->is_freebsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
+ else { qw( groff nroff mandoc ) }
+ }
+
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Wed, Dec 25, 11:16 AM (11 h, 4 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
15596459
Default Alt Text
D2373.diff (11 KB)
Attached To
Mode
D2373: Now that we have mandoc in most our releases, maybe Perl could use it.
Attached
Detach File
Event Timeline
Log In to Comment