Changeset View
Changeset View
Standalone View
Standalone View
lang/perl5.20/files/patch-cpan_Pod-Perldoc_lib_Pod_Perldoc.pm
- This file was added.
Property | Old Value | New Value |
---|---|---|
fbsd:nokeywords | null | yes \ No newline at end of property |
svn:eol-style | null | native \ No newline at end of property |
svn:mime-type | null | text/plain \ No newline at end of property |
--- 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,9 @@ 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"; | |||||
last if system("$pager \"$output\"") == 0; | |||||
} | |||||
} |