svn commit: r495738 - in head/lang/perl5.28: . files
Mathieu Arnold
mat at FreeBSD.org
Thu Mar 14 21:13:03 UTC 2019
Author: mat
Date: Thu Mar 14 21:13:01 2019
New Revision: 495738
URL: https://svnweb.freebsd.org/changeset/ports/495738
Log:
Put back a default non dumb pod formatter [1], and fix a probable bug in
the mandoc formatter.
PR: 236092 [1]
Reported by: Andrew Daugherity
Added:
head/lang/perl5.28/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm (contents, props changed)
Modified:
head/lang/perl5.28/Makefile (contents, props changed)
head/lang/perl5.28/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm (contents, props changed)
Modified: head/lang/perl5.28/Makefile
==============================================================================
--- head/lang/perl5.28/Makefile Thu Mar 14 21:10:22 2019 (r495737)
+++ head/lang/perl5.28/Makefile Thu Mar 14 21:13:01 2019 (r495738)
@@ -3,6 +3,7 @@
PORTNAME= perl
DISTVERSION= ${PERL_VERSION}
+PORTREVISION= 1
CATEGORIES= lang devel perl5
MASTER_SITES= CPAN/../../src/5.0 CPAN/../../authors/id/X/XS/XSAWYERX/
DIST_SUBDIR= perl
Added: head/lang/perl5.28/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ head/lang/perl5.28/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm Thu Mar 14 21:13:01 2019 (r495738)
@@ -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;
+ }
Modified: head/lang/perl5.28/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
==============================================================================
--- head/lang/perl5.28/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm Thu Mar 14 21:10:22 2019 (r495737)
+++ head/lang/perl5.28/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm Thu Mar 14 21:13:01 2019 (r495738)
@@ -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,
More information about the svn-ports-all
mailing list