use Pod::Simple::TiedOutFH rather than require-ing it

Anticipating CPAN release of perl-pod/pod-simple#131
Perl · May 11, 2021 · 6d65639 · 6d65639
1 parent 64b6bf8
commit 6d65639
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cpan/Pod-Simple/lib/Pod/Simple.pm b/cpan/Pod-Simple/lib/Pod/Simple.pm
@@ -8,6 +8,7 @@ use integer;
 use Pod::Escapes 1.04 ();
 use Pod::Simple::LinkSection ();
 use Pod::Simple::BlackBox ();
+use Pod::Simple::TiedOutFH;
 #use utf8;
 
 use vars qw(
@@ -18,7 +19,7 @@ use vars qw(
 );
 
 @ISA = ('Pod::Simple::BlackBox');
-$VERSION = '3.42';
+$VERSION = '3.42_001'; $VERSION = eval $VERSION;
 
 @Known_formatting_codes = qw(I B C L E F S X Z); 
 %Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
@@ -202,7 +203,6 @@ sub output_string {
   my $this = shift;
   return $this->{'output_string'} unless @_;  # GET.
 
-  require Pod::Simple::TiedOutFH;
   my $x = (defined($_[0]) and ref($_[0])) ? $_[0] : \( $_[0] );
   $$x = '' unless defined $$x;
   DEBUG > 4 and print STDERR "# Output string set to $x ($$x)\n";