blob: d807041754d49c181bbb6b445139a7b40aa0aca6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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,
|
