From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 29 Jul 1999 07:19:27 +0000 (+0000)
Subject: tweak previous change for multiple hits
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94e33e97c24257d3d38c398f932f24d466cb0feb;p=p5sagit%2Fp5-mst-13.2.git

tweak previous change for multiple hits

p4raw-id: //depot/perl@3828
---

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