diff options
Diffstat (limited to 'lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm')
| -rw-r--r-- | lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm b/lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm new file mode 100644 index 000000000000..d807041754d4 --- /dev/null +++ b/lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm @@ -0,0 +1,24 @@ +- 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 { + + return 0 unless defined $ENV{MANWIDTH}; + ++ if ($ENV{MANWIDTH} eq 'tty') { return 0; } ++ + 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, |