From: Roderick Schertler <roderick@gate.net>
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: <pzwwtoom8p.fsf@eeyore.ibcinc.com>
---

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) {