This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tweak previous change for multiple hits
authorGurusamy Sarathy <gsar@cpan.org>
Thu, 29 Jul 1999 07:19:27 +0000 (07:19 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 29 Jul 1999 07:19:27 +0000 (07:19 +0000)
p4raw-id: //depot/perl@3828

utils/perldoc.PL

index 2ab918b..7dc478b 100644 (file)
@@ -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";