Pod::Tests backward compatibility Patch

[Tatsuhiko Miyagawa]

Title says it all :-)


diff -ruP Pod-Tests-0.08.orig/bin/pod2test
Pod-Tests-0.08/bin/pod2test
--- Pod-Tests-0.08.orig/bin/pod2test    Thu Aug 23 06:41:45 2001
+++ Pod-Tests-0.08/bin/pod2test Thu Aug 23 06:38:48 2001
@@ -5,6 +5,7 @@
 $VERSION = '0.03';

 use Pod::Tests;
+use Symbol;

 =pod

@@ -35,6 +36,7 @@
 my($infh,$outfh);

 if( defined $infile ) {
+    $infh = gensym;
     open($infh, $infile) or
       die "Can't open the POD file $infile: $!";
 }
@@ -43,6 +45,7 @@
 }

 if( defined $outfile) {
+    $outfh = gensym;
     open($outfh, ">$outfile") or
       die "Can't open the test file $outfile: $!";
 }
diff -ruP Pod-Tests-0.08.orig/lib/Pod/Tests.pm Pod-Tests-0.08/lib/Pod/Tests.pm
--- Pod-Tests-0.08.orig/lib/Pod/Tests.pm        Thu Aug 23 06:41:45 2001
+++ Pod-Tests-0.08/lib/Pod/Tests.pm     Thu Aug 23 06:39:44 2001
@@ -520,7 +520,7 @@
         push @code, <<CODE;
 eval q{
   my \$example = sub {
-    no warnings;
+    local \$^W = 0;

 #line $example->{line} $file
 $example->{code};


--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>