diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-29 07:10:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-29 07:10:00 +0000 |
| commit | 44e4e192b238c3cc893c2e7269159906cf99c1b9 (patch) | |
| tree | a6ec26e2188a799b28e16d6d7b68165613029c3a /utils/perldoc.PL | |
| parent | 9cbb5ea2917cb666eed5655eac07566f07548487 (diff) | |
| download | perl-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.PL | 5 |
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"; |