diff options
| author | Roderick Schertler <roderick@gate.net> | 1997-01-07 22:54:14 -0500 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-16 07:24:00 +1200 |
| commit | 7c36043de26da560a0f7eb04f36d232762c0092c (patch) | |
| tree | 2b4240e0726dbcc2903c6e9aa60884ea7ecf374e | |
| parent | a2333f3625faa17fb193cfa25c3d598cb59f105f (diff) | |
| download | perl-7c36043de26da560a0f7eb04f36d232762c0092c.tar.gz | |
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>
| -rw-r--r-- | utils/perldoc.PL | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 7d62c07f81..3106cbc2bc 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) { |