perl 5.003_05: utils/perldoc.PL
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Sat, 7 Sep 1996 03:12:28 +0000 (03:12 +0000)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Sat, 7 Sep 1996 03:12:28 +0000 (03:12 +0000)
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.

utils/perldoc.PL

index 82e60ad..46a89d0 100644 (file)
@@ -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;
 }