aboutsummaryrefslogtreecommitdiff
path: root/lang/perl5.42/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc_ToTerm.pm
diff options
context:
space:
mode:
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.pm13
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;