diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2006-03-14 05:38:00 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-14 16:02:35 +0000 |
| commit | 90cd13a29feb8c9646bbe3dfa9e5a556f3e5d9ce (patch) | |
| tree | fb5950a471839ac5b47c8c6e992d0e808a5544fa /lib/Pod | |
| parent | ba72d282e339edb2a3124033347f574683185a2a (diff) | |
| download | perl-90cd13a29feb8c9646bbe3dfa9e5a556f3e5d9ce.tar.gz | |
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
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Simple/t/corpustest.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Pod/Simple/t/corpustest.t b/lib/Pod/Simple/t/corpustest.t index 5ced153c6c..b37f77c4e3 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); |