diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-29 07:19:27 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-29 07:19:27 +0000 |
| commit | 94e33e97c24257d3d38c398f932f24d466cb0feb (patch) | |
| tree | acb4567b31d8fac9d66ee1857bbce2c296de7adb /utils/perldoc.PL | |
| parent | 44e4e192b238c3cc893c2e7269159906cf99c1b9 (diff) | |
| download | perl-94e33e97c24257d3d38c398f932f24d466cb0feb.tar.gz | |
tweak previous change for multiple hits
p4raw-id: //depot/perl@3828
Diffstat (limited to 'utils/perldoc.PL')
| -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"; |