diff options
Diffstat (limited to 'lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToTerm.pm')
-rw-r--r-- | lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToTerm.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToTerm.pm b/lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToTerm.pm new file mode 100644 index 000000000000..839207741f2d --- /dev/null +++ b/lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToTerm.pm @@ -0,0 +1,13 @@ +Handle MANWIDTH=tty + +--- cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm.orig 2017-04-03 07:28:44 UTC ++++ cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm +@@ -69,6 +69,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; |