blob: 8ae92cb92a319702a77d951302a2ec5db9f6bd66 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
From: Niko Tyni <ntyni@debian.org>
Date: Fri, 13 Oct 2017 11:59:34 +0300
Subject: Fix perldoc terminal escapes when sensible-pager is less
This is a temporary fix while upstream is reworking the
pager handling.
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=120229
Bug-Debian: https://bugs.debian.org/870340
---
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm
index 9501d63..a5aedf6 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm
@@ -32,7 +32,7 @@ sub pager_configuration {
# do not modify anything on Windows or DOS
return if ( $perldoc->is_mswin32 || $perldoc->is_dos );
- if ( $pager =~ /less/ ) {
+ if ( $pager =~ /sensible-pager|less/ ) {
$self->_maybe_modify_environment('LESS');
}
elsif ( $pager =~ /more/ ) {
|