mirror of
https://git.freebsd.org/ports.git
synced 2025-05-13 07:41:50 -04:00
500e6a241e
pager. Differential Revision: https://reviews.freebsd.org/D2373 With hat: perl@ Sponsored by: Absolight
10 lines
497 B
Perl
10 lines
497 B
Perl
--- lib/Pod/Perldoc.pm.orig 2015-02-12 03:07:39 UTC
|
|
+++ lib/Pod/Perldoc.pm
|
|
@@ -1920,6 +1920,7 @@ sub page { # apply a pager to the outpu
|
|
# 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;
|
|
}
|
|
}
|