diff options
Diffstat (limited to 'lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm')
-rw-r--r-- | lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm b/lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm new file mode 100644 index 000000000000..c8b7993f4f4a --- /dev/null +++ b/lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm @@ -0,0 +1,13 @@ +--- cpan/Pod-Perldoc/lib/Pod/Perldoc.pm.orig 2014-12-27 11:49:22 UTC ++++ cpan/Pod-Perldoc/lib/Pod/Perldoc.pm +@@ -1892,6 +1892,10 @@ sub page { # apply a pager to the outpu + if ($self->is_vms) { + last if system("$pager $output") == 0; + } else { ++ # fix visible escape codes in ToTerm output ++ # https://bugs.debian.org/758689 ++ local $ENV{LESS} = defined $ENV{LESS} ? "$ENV{LESS} -R" : "-R"; ++ local $ENV{MORE} = defined $ENV{MORE} ? "$ENV{MORE} -R" : "-R"; + last if system("$pager \"$output\"") == 0; + } + } |