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);