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 (file)
--- 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;
 }