Upgrade to podlators-2.0.3

p4raw-id: //depot/perl@26995

6 files changed, 29 insertions, 17 deletions

diff --git a/lib/Pod/t/basic.t b/lib/Pod/t/basic.t
index 4b88f61130..b05b914311 100644
--- a/lib/Pod/t/basic.t
+++ b/lib/Pod/t/basic.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id: basic.t,v 1.9 2006-01-20 21:20:58 eagle Exp $
+# $Id: basic.t,v 1.10 2006-01-28 22:31:50 eagle Exp $
 #
 # basic.t -- Basic tests for podlators.
 #
-# Copyright 2001, 2002, 2004 by Russ Allbery <rra@stanford.edu>
+# Copyright 2001, 2002, 2004, 2006 by Russ Allbery <rra@stanford.edu>
 #
 # This program is free software; you may redistribute it and/or modify it
 # under the same terms as Perl itself.
@@ -82,7 +82,9 @@ for (sort keys %translators) {
     # For Pod::Man, strip out the autogenerated header up to the .TH title
     # line.  That means that we don't check those things; oh well.  The header
     # changes with each version change or touch of the input file.
-    $parser->parse_from_file (source_path ('basic.pod'), 'out.tmp');
+    open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
+    $parser->parse_from_file (source_path ('basic.pod'), \*OUT);
+    close OUT;
     if ($_ eq 'Pod::Man') {
         open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
         open (OUTPUT, "> out.$translators{$_}")
diff --git a/lib/Pod/t/color.t b/lib/Pod/t/color.t
index 58783a4f7a..0575b509cb 100755
--- a/lib/Pod/t/color.t
+++ b/lib/Pod/t/color.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id: color.t,v 1.2 2006-01-20 21:20:58 eagle Exp $
+# $Id: color.t,v 1.3 2006-01-28 22:31:50 eagle Exp $
 #
 # color.t -- Additional specialized tests for Pod::Text::Color.
 #
-# Copyright 2002, 2004 by Russ Allbery <rra@stanford.edu>
+# Copyright 2002, 2004, 2006 by Russ Allbery <rra@stanford.edu>
 #
 # This program is free software; you may redistribute it and/or modify it
 # under the same terms as Perl itself.
@@ -47,7 +47,9 @@ while (<DATA>) {
         print TMP $_;
     }
     close TMP;
-    $parser->parse_from_file ('tmp.pod', 'out.tmp');
+    open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
+    $parser->parse_from_file ('tmp.pod', \*OUT);
+    close OUT;
     open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
     my $output;
     {
diff --git a/lib/Pod/t/man.t b/lib/Pod/t/man.t
index d556f21fb8..77f485d16a 100644
--- a/lib/Pod/t/man.t
+++ b/lib/Pod/t/man.t
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: man.t,v 1.8 2006-01-25 23:58:22 eagle Exp $
+# $Id: man.t,v 1.9 2006-01-28 22:31:50 eagle Exp $
 #
 # man.t -- Additional specialized tests for Pod::Man.
 #
@@ -45,7 +45,9 @@ while (<DATA>) {
         print TMP $_;
     }
     close TMP;
-    $parser->parse_from_file ('tmp.pod', 'out.tmp');
+    open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
+    $parser->parse_from_file ('tmp.pod', \*OUT);
+    close OUT;
     open (OUT, 'out.tmp') or die "Cannot open out.tmp: $!\n";
     while (<OUT>) { last if /^\.TH/ }
     my $output;
diff --git a/lib/Pod/t/termcap.t b/lib/Pod/t/termcap.t
index e3e8c7ca05..f93b82e17e 100755
--- a/lib/Pod/t/termcap.t
+++ b/lib/Pod/t/termcap.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id: termcap.t,v 1.3 2006-01-20 21:20:58 eagle Exp $
+# $Id: termcap.t,v 1.4 2006-01-28 22:31:50 eagle Exp $
 #
 # termcap.t -- Additional specialized tests for Pod::Text::Termcap.
 #
-# Copyright 2002, 2004 by Russ Allbery <rra@stanford.edu>
+# Copyright 2002, 2004, 2006 by Russ Allbery <rra@stanford.edu>
 #
 # This program is free software; you may redistribute it and/or modify it
 # under the same terms as Perl itself.
@@ -44,7 +44,9 @@ while (<DATA>) {
         print TMP $_;
     }
     close TMP;
-    $parser->parse_from_file ('tmp.pod', 'out.tmp');
+    open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
+    $parser->parse_from_file ('tmp.pod', \*OUT);
+    close OUT;
     open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
     my $output;
     {
diff --git a/lib/Pod/t/text-options.t b/lib/Pod/t/text-options.t
index cb418d3b69..2a62a1bc15 100644
--- a/lib/Pod/t/text-options.t
+++ b/lib/Pod/t/text-options.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id: text-options.t,v 1.5 2006-01-20 21:20:58 eagle Exp $
+# $Id: text-options.t,v 1.6 2006-01-28 22:31:50 eagle Exp $
 #
 # text-options.t -- Additional tests for Pod::Text options.
 #
-# Copyright 2002, 2004 by Russ Allbery <rra@stanford.edu>
+# Copyright 2002, 2004, 2006 by Russ Allbery <rra@stanford.edu>
 #
 # This program is free software; you may redistribute it and/or modify it
 # under the same terms as Perl itself.
@@ -45,7 +45,9 @@ while (<DATA>) {
     }
     close TMP;
     my $parser = Pod::Text->new (%options) or die "Cannot create parser\n";
-    $parser->parse_from_file ('tmp.pod', 'out.tmp');
+    open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
+    $parser->parse_from_file ('tmp.pod', \*OUT);
+    close OUT;
     open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
     my $output;
     {
diff --git a/lib/Pod/t/text.t b/lib/Pod/t/text.t
index fd25c78532..cbe37828ad 100644
--- a/lib/Pod/t/text.t
+++ b/lib/Pod/t/text.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id: text.t,v 1.4 2006-01-20 21:20:58 eagle Exp $
+# $Id: text.t,v 1.5 2006-01-28 22:31:50 eagle Exp $
 #
 # text.t -- Additional specialized tests for Pod::Text.
 #
-# Copyright 2002, 2004 by Russ Allbery <rra@stanford.edu>
+# Copyright 2002, 2004, 2006 by Russ Allbery <rra@stanford.edu>
 #
 # This program is free software; you may redistribute it and/or modify it
 # under the same terms as Perl itself.
@@ -39,7 +39,9 @@ while (<DATA>) {
         print TMP $_;
     }
     close TMP;
-    $parser->parse_from_file ('tmp.pod', 'out.tmp');
+    open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
+    $parser->parse_from_file ('tmp.pod', \*OUT);
+    close OUT;
     open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
     my $output;
     {