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

Message-ID: <OF85EC8E5E.4DF3A439-ON85257131.0055870A-85257131.0055E07C@factset.com>

p4raw-id: //depot/perl@27497

diff --git a/lib/Pod/Simple/t/corpustest.t b/lib/Pod/Simple/t/corpustest.t
index 5ced153..b37f77c 100644 (file)
--- a/lib/Pod/Simple/t/corpustest.t
+++ b/lib/Pod/Simple/t/corpustest.t
@@ -122,7 +122,9 @@ foreach my $f (@testfiles) {
   
   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);