This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
band-aid for perldoc -t broken-ness (the new Pod::Text
authorGurusamy Sarathy <gsar@cpan.org>
Thu, 29 Jul 1999 07:10:00 +0000 (07:10 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 29 Jul 1999 07:10:00 +0000 (07:10 +0000)
really needs a pod2text() compatibility function)

p4raw-id: //depot/perl@3827

utils/perldoc.PL

index 8c1c696..2ab918b 100644 (file)
@@ -313,10 +313,7 @@ sub printout {
     my $err;
 
     if ($opt_t) {
-       open(TMP,">>$tmp")
-               or warn("Can't open $tmp: $!"), return;
-       Pod::Text::pod2text($file,*TMP);
-       close TMP;
+       Pod::Text->new()->parse_from_file($file,$tmp);
     }
     elsif (not $opt_u) {
        my $cmd = "pod2man --lax $file | nroff -man";