From: Peter Prymmer <PPrymmer@factset.com>
Date: Tue, 14 Mar 2006 10:38:00 +0000 (-0500)
Subject: perl @ 27483 fix lib/Pod/Simple/t/corpustest.t to work on VMS ODS-2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=90cd13a29feb8c9646bbe3dfa9e5a556f3e5d9ce;p=p5sagit%2Fp5-mst-13.2.git

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