Peter Prymmer wrote:
> 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.
Thanks, applied to bleadperl as change #27497, and cc:'ing Allison.
> 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:
>
>
