Re: perldoc, temp files, async pagers

Then again, your suggestion of having perldoc check $PERLDOC_PAGER first
shouldn't offend anybody.

p5p-msgid: <pzwwtoom8p.fsf@eeyore.ibcinc.com>

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 7d62c07..3106cbc 100644 (file)
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -234,13 +234,11 @@ unless($Is_VMS) {
        $tmp = "/tmp/perldoc1.$$";
        push @pagers, qw( more less pg view cat );
        unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
-       $goodresult = 0;
 } else {
        $tmp = 'Sys$Scratch:perldoc.tmp1_'.$$;
        push @pagers, qw( most more less type/page );
-       unshift @pagers, $ENV{PERLDOC_PAGER} if $ENV{PERLDOC_PAGER};
-       $goodresult = 1;
 }
+unshift @pagers, $ENV{PERLDOC_PAGER} if $ENV{PERLDOC_PAGER};
 
 if ($opt_m) {
     foreach $pager (@pagers) {