aboutsummaryrefslogtreecommitdiffstats
path: root/lang
diff options
context:
space:
mode:
authorMathieu Arnold <mat@FreeBSD.org>2019-03-13 00:56:54 +0800
committerMathieu Arnold <mat@FreeBSD.org>2019-03-13 00:56:54 +0800
commit8f9668e493ca5b5044769e6be5eb9412f4234af1 (patch)
tree05bf8c7d1ba638e306f9fbb0c7f442ff438dbc23 /lang
parent250cdde2534ac865b9ae12add1583c0616d6cdb1 (diff)
downloadfreebsd-ports-gnome-8f9668e493ca5b5044769e6be5eb9412f4234af1.tar.gz
freebsd-ports-gnome-8f9668e493ca5b5044769e6be5eb9412f4234af1.tar.zst
freebsd-ports-gnome-8f9668e493ca5b5044769e6be5eb9412f4234af1.zip
Put back a default non dumb pod formatter, and fix a probable bug in
the mandoc formatter. PR: 236092 [1] Reported by: Andrew Daugherity
Diffstat (limited to 'lang')
-rw-r--r--lang/perl5-devel/Makefile2
-rw-r--r--lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm16
-rw-r--r--lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm15
3 files changed, 31 insertions, 2 deletions
diff --git a/lang/perl5-devel/Makefile b/lang/perl5-devel/Makefile
index b01755f91eac..92dbe7cf8b75 100644
--- a/lang/perl5-devel/Makefile
+++ b/lang/perl5-devel/Makefile
@@ -7,7 +7,7 @@ PORTNAME= perl
DISTVERSIONPREFIX= v
DISTVERSION= ${GH_TAGNAME:C/^v//:C/-g[0-9a-f]*$//}
DISTVERSIONSUFFIX= ${GH_TAGNAME:C/.*-g/-g/}
-PORTREVISION= 0
+PORTREVISION= 1
CATEGORIES= lang devel perl5
# XXX Leave only CPAN.
MASTER_SITES= LOCAL/mat/perl GH
diff --git a/lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm b/lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
new file mode 100644
index 000000000000..8a9479cc7511
--- /dev/null
+++ b/lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
@@ -0,0 +1,16 @@
+Put back some non dumb outputter by default
+
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc.pm.orig 2019-03-12 16:47:18 UTC
++++ cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
+@@ -486,6 +486,11 @@ sub init_formatter_class_list {
+
+ $self->opt_M_with('Pod::Perldoc::ToPod'); # the always-there fallthru
+ $self->opt_o_with('text');
++ $self->opt_o_with('man')
++ unless $self->is_mswin32 || $self->is_dos || $self->is_amigaos
++ || !($ENV{TERM} && (
++ ($ENV{TERM} || '') !~ /dumb|emacs|none|unknown/i
++ ));
+
+ return;
+ }
diff --git a/lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm b/lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
index cf800afbf959..d807041754d4 100644
--- a/lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
+++ b/lang/perl5-devel/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
@@ -1,4 +1,7 @@
---- cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig 2017-04-03 07:28:44 UTC
+- Handle MANWIDTH=tty
+- Reset $? before opening mandoc so that the outputter works.
+
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig 2019-03-11 04:03:26 UTC
+++ cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
@@ -108,6 +108,8 @@ sub _get_columns_from_manwidth {
@@ -9,3 +12,13 @@
unless( $ENV{MANWIDTH} =~ m/\A\d+\z/ ) {
$self->warn( "Ignoring non-numeric MANWIDTH ($ENV{MANWIDTH})\n" );
return 0;
+@@ -309,6 +311,9 @@ sub _filter_through_nroff {
+ require Symbol;
+ require IPC::Open3;
+ require IO::Handle;
++
++ # Reset this???
++ $?=0;
+
+ my $pid = IPC::Open3::open3(
+ my $writer,