From 44e4e192b238c3cc893c2e7269159906cf99c1b9 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 29 Jul 1999 07:10:00 +0000
Subject: [PATCH] band-aid for perldoc -t broken-ness (the new Pod::Text really
 needs a pod2text() compatibility function)

p4raw-id: //depot/perl@3827
---
 utils/perldoc.PL | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 8c1c696..2ab918b 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -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";
-- 
2.7.4