This is *only* a test suite fix to work around a problem on Windows. A
diff is attached to the end of this message.
The URL
ftp://ftp.eyrie.org/pub/software/modules/podlators-2.0.3.tar.gz
has entered CPAN as
file: $CPAN/authors/id/R/RR/RRA/podlators-2.0.3.tar.gz
size: 75967 bytes
md5: 147aec4af75a3e26226360866d856693
Changes since last release:
2006-01-28 Russ Allbery <[EMAIL PROTECTED]>
* VERSION: podlators 2.0.3 released.
* t/basic.t: Pass in a file handle for Pod::Simple output and then
close it afterwards to work around Pod::Simple leaving file
handles open and preventing removal of temporary files on Windows.
This is temporary until a new Pod::Simple release offers a better
approach.
* t/color.t: Likewise.
* t/man.t: Likewise.
* t/termcap.t: Likewise.
* t/text-options.t: Likewise.
* t/text.t: Likewise.
Index: basic.t
===================================================================
RCS file: /home/eagle/cvs/pod/t/basic.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- basic.t 20 Jan 2006 21:20:58 -0000 1.9
+++ basic.t 28 Jan 2006 22:31:50 -0000 1.10
@@ -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 <[EMAIL PROTECTED]>
+# Copyright 2001, 2002, 2004, 2006 by Russ Allbery <[EMAIL PROTECTED]>
#
# 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{$_}")
Index: color.t
===================================================================
RCS file: /home/eagle/cvs/pod/t/color.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- color.t 20 Jan 2006 21:20:58 -0000 1.2
+++ color.t 28 Jan 2006 22:31:50 -0000 1.3
@@ -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 <[EMAIL PROTECTED]>
+# Copyright 2002, 2004, 2006 by Russ Allbery <[EMAIL PROTECTED]>
#
# 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;
{
Index: man.t
===================================================================
RCS file: /home/eagle/cvs/pod/t/man.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- man.t 25 Jan 2006 23:58:22 -0000 1.8
+++ man.t 28 Jan 2006 22:31:50 -0000 1.9
@@ -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;
Index: termcap.t
===================================================================
RCS file: /home/eagle/cvs/pod/t/termcap.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- termcap.t 20 Jan 2006 21:20:58 -0000 1.3
+++ termcap.t 28 Jan 2006 22:31:50 -0000 1.4
@@ -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 <[EMAIL PROTECTED]>
+# Copyright 2002, 2004, 2006 by Russ Allbery <[EMAIL PROTECTED]>
#
# 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;
{
Index: text-options.t
===================================================================
RCS file: /home/eagle/cvs/pod/t/text-options.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- text-options.t 20 Jan 2006 21:20:58 -0000 1.5
+++ text-options.t 28 Jan 2006 22:31:50 -0000 1.6
@@ -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 <[EMAIL PROTECTED]>
+# Copyright 2002, 2004, 2006 by Russ Allbery <[EMAIL PROTECTED]>
#
# 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;
{
Index: text.t
===================================================================
RCS file: /home/eagle/cvs/pod/t/text.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- text.t 20 Jan 2006 21:20:58 -0000 1.4
+++ text.t 28 Jan 2006 22:31:50 -0000 1.5
@@ -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 <[EMAIL PROTECTED]>
+# Copyright 2002, 2004, 2006 by Russ Allbery <[EMAIL PROTECTED]>
#
# 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;
{
--
Russ Allbery ([EMAIL PROTECTED]) <http://www.eyrie.org/~eagle/>
