summaryrefslogtreecommitdiff
path: root/utils/perldoc.PL
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-07-29 07:10:00 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-07-29 07:10:00 +0000
commit44e4e192b238c3cc893c2e7269159906cf99c1b9 (patch)
treea6ec26e2188a799b28e16d6d7b68165613029c3a /utils/perldoc.PL
parent9cbb5ea2917cb666eed5655eac07566f07548487 (diff)
downloadperl-44e4e192b238c3cc893c2e7269159906cf99c1b9.tar.gz
band-aid for perldoc -t broken-ness (the new Pod::Text
really needs a pod2text() compatibility function) p4raw-id: //depot/perl@3827
Diffstat (limited to 'utils/perldoc.PL')
-rw-r--r--utils/perldoc.PL5
1 files changed, 1 insertions, 4 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 8c1c6968d1..2ab918b156 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -313,10 +313,7 @@ sub printout {
my $err;
if ($opt_t) {
- open(TMP,">>$tmp")
- or warn("Can't open $tmp: $!"), return;
- Pod::Text::pod2text($file,*TMP);
- close TMP;
+ Pod::Text->new()->parse_from_file($file,$tmp);
}
elsif (not $opt_u) {
my $cmd = "pod2man --lax $file | nroff -man";