diff options
Diffstat (limited to 'utils')
| -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"; |