From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 7 Sep 1996 03:12:28 +0000 (+0000)
Subject: perl 5.003_05: utils/perldoc.PL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a17cb150d9402fae73682fb5b1eaab2f66474f69;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003_05: utils/perldoc.PL

More choices in the pager war.  Unfortunately, we can't rely on
all users agreeing with the Sysadmin's choice, nor can we
assign a default preference order, since opinions vary.  If the
user doesn't have $ENV{PAGER} set, we do want to pick up one that
at least works, so we'll try whatever Configure found.
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 82e60ad..46a89d0 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -222,8 +222,9 @@ unless($Is_VMS) {
 	@pagers = qw( more less pg view cat );
 	unshift(@pagers,$ENV{PAGER}) if $ENV{PAGER};
 } else {
+	require Config;
 	$tmp = 'Sys$Scratch:perldoc.tmp1_'.$$;
-	@pagers = qw( most more less type/page );
+	@pagers = ($Config::Config{'pager'},qw( most more less type/page ));
 	unshift(@pagers,$ENV{PERLDOC_PAGER}) if $ENV{PERLDOC_PAGER};
 	$goodresult = 1;
 }