| Subject: | t/MM_Win32.t failures on Win32 |
On my Windows 2000 box I have 2 versions of perl 5.8.8 - both built
from CPAN source. One version is built using MinGW/dmake, the other
MSVC++7.0/nmake. On both versions, test 31 in MM_Win32.t fails (for
both EU::MM-6.30 and EU::MM-6.30_01). I modified test 31 to:
# path()
my $had_path = exists $ENV{PATH};
{
my @path_eg = ( qw( . .. ), 'C:\\Program Files' );
local $ENV{PATH} = join ';', @path_eg;
my @x = $MM->path; # added by me
print "\n", $ENV{PATH}, "\n@x\n@path_eg\n"; # added by me
ok( eq_array( [ $MM->path() ], [ @path_eg ] ),
'path() [preset]' );
}
With those changes in place test 31 outputs:
.;..;C:\Program Files
. . .. C:\Program Files
. .. C:\Program Files
not ok 31 - path() [preset]
Seems that '$MM->path' doubles up on the '.'.
Cheers,
Rob