Catch the case of filesize limits.

[p5sagit/p5-mst-13.2.git] / utils / perldoc.PL

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 2ab918b..7dc478b 100644 (file)
--- 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";