diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-09-07 03:12:28 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-07 03:12:28 +0000 |
| commit | a17cb150d9402fae73682fb5b1eaab2f66474f69 (patch) | |
| tree | ee13fe86a98a5d1d82ccd5760001e6b5379a06ac | |
| parent | bf9e8eaa6a6cfa8a9a1ba82b6334c5f1da28f022 (diff) | |
| download | perl-a17cb150d9402fae73682fb5b1eaab2f66474f69.tar.gz | |
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.
| -rw-r--r-- | utils/perldoc.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 82e60add74..46a89d011f 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; } |