[PATCH] perl @ 27483 fix lib/Pod/Simple/t/corpustest.t to work on VMS ODS-2

[Peter Prymmer]

Greetings,

Attached patch has been tested to be OK on VMS V8.2 Itanium as well as 
SunOS 5.8.
I think John Malmberg does not report this test as a failure since I 
suspect
he tests exclusively on and ODS-5 volume.

diff -ru bleed_at_27483/lib/Pod/Simple/t/corpustest.t 
bleed/lib/Pod/Simple/t/corpustest.t
--- bleed_at_27483/lib/Pod/Simple/t/corpustest.t        2006-03-13 
12:04:47.810161000 -0500
+++ bleed/lib/Pod/Simple/t/corpustest.t 2006-03-13 12:07:31.789019000 
-0500
@@ -122,7 +122,9 @@
 
   next if $f =~ /nonesuch/;
 
-  my $outfilename = ($HACK > 1) ? $wouldxml{$f} : "$wouldxml{$f}\.out";
+  # foo.xml.out is not a portable filename. foo.xml_out may be a bit more 
portable
+
+  my $outfilename = ($HACK > 1) ? $wouldxml{$f} : "$wouldxml{$f}_out";
   if($HACK) {
     open OUT, ">$outfilename" or die "Can't write-open $outfilename: 
$!\n";
     binmode(OUT);
End of Patch.

Peter Prymmer

Included as a MIME attachment to circumvent line wrapping manglement:

corpus.patch
Description: Binary data