Changeset View
Changeset View
Standalone View
Standalone View
lang/perl5.34/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToMan.pm
- This file was added.
- 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, |