From: Roderick Schertler Date: Wed, 8 Jan 1997 03:54:14 +0000 (-0500) Subject: Re: perldoc, temp files, async pagers X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c36043de26da560a0f7eb04f36d232762c0092c;p=p5sagit%2Fp5-mst-13.2.git Re: perldoc, temp files, async pagers Then again, your suggestion of having perldoc check $PERLDOC_PAGER first shouldn't offend anybody. p5p-msgid: --- diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 7d62c07..3106cbc 100644 --- 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) {