diff options
| -rw-r--r-- | utils/perldoc.PL | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 2ab918b156..7dc478b4e7 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -313,7 +313,9 @@ sub printout { my $err; if ($opt_t) { - Pod::Text->new()->parse_from_file($file,$tmp); + open(OUT,">>$tmp") or warn("Can't open $tmp: $!"), return; + Pod::Text->new()->parse_from_file($file,\*OUT); + close OUT; } elsif (not $opt_u) { my $cmd = "pod2man --lax $file | nroff -man"; |