diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 06:24:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 06:24:38 +0000 |
| commit | 43051805d53a3e4c5b2185a17655cab5bedc17ed (patch) | |
| tree | e2db8140ee431ea4490e4a62d46c8aebc55a920f /utils | |
| parent | 9510368719223cd3ecddcaa064744e809b020662 (diff) | |
| download | perl-43051805d53a3e4c5b2185a17655cab5bedc17ed.tar.gz | |
[win32] merge changes#755..759,763,764 from maintbranch
p4raw-link: @764 on //depot/maint-5.004/perl: b55845b185b3655fbcb60a4cd75d05dde49129cb
p4raw-link: @763 on //depot/maint-5.004/perl: 150da09659bcba17cd7d84357c9e11bb0c85c6d8
p4raw-link: @759 on //depot/maint-5.004/perl: c8d70d09e95768371f69f084e8e237d2195ede65
p4raw-link: @755 on //depot/maint-5.004/perl: 284fa67c1ad7208c8b4dd82288a92c22d0bfdaca
p4raw-id: //depot/win32/perl@934
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 3a6059b4fd..752f335ca2 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -391,14 +391,23 @@ if ($opt_f) { ++$found if /^\w/; # found descriptive text } if (@pod) { + my $lines = $ENV{LINES} || 24; + if ($opt_t) { open(FORMATTER, "| pod2text") || die "Can't start filter"; print FORMATTER "=over 8\n\n"; print FORMATTER @pod; print FORMATTER "=back\n"; close(FORMATTER); - } else { + } elsif (@pod < $lines-2) { print @pod; + } else { + foreach $pager (@pagers) { + open (PAGER, "| $pager") or next; + print PAGER @pod ; + close(PAGER) or next; + last; + } } } else { die "No documentation for perl function `$opt_f' found\n"; |