'Win32' =>
{
'MAINTAINER' => 'jand',
- 'DISTRIBUTION' => "JDB/Win32-0.41.tar.gz",
+ 'DISTRIBUTION' => "JDB/Win32-0.42.tar.gz",
'FILES' => q[cpan/Win32],
'UPSTREAM' => 'cpan',
},
Revision history for the Perl extension Win32.\r
\r
+0.42 [2011-01-06]\r
+ - remove brittle test for Win32::GetLongPathName($ENV{SYSTEMROOT})\r
+ which will fail if the case of the environment value doesn't\r
+ exactly match the case of the directory name on the filesystem.\r
+\r
0.41 [2010-12-10]\r
- Fix Win32::GetChipName() to return the native processor type when\r
running 32-bit Perl on 64-bit Windows (WOW64). This will also\r
my %param = (\r
NAME => 'Win32',\r
VERSION_FROM => 'Win32.pm',\r
- INSTALLDIRS => ($] >= 5.008004 ? 'perl' : 'site'),\r
+ INSTALLDIRS => ($] >= 5.008004 && $] < 5.012 ? 'perl' : 'site'),\r
);\r
$param{NO_META} = 1 if eval "$ExtUtils::MakeMaker::VERSION" >= 6.10_03;\r
$param{LIBS} = ['-L/lib/w32api -lole32 -lversion'] if $^O eq "cygwin";\r
require DynaLoader;\r
\r
@ISA = qw|Exporter DynaLoader|;\r
- $VERSION = '0.41';\r
+ $VERSION = '0.42';\r
$XS_VERSION = $VERSION;\r
$VERSION = eval $VERSION;\r
\r
}\r
elsif ($productinfo == PRODUCT_BUSINESS) {\r
# "Windows 7 Business" had a name change to "Windows 7 Professional"\r
- $desc .= $minor == 0 ? " Business" : "Professional";\r
+ $desc .= $minor == 0 ? " Business" : " Professional";\r
}\r
elsif ($productinfo == PRODUCT_STARTER) {\r
$desc .= " Starter";\r
for (@paths) {\r
s/^c:/$drive/;\r
}\r
- push @paths, $ENV{SYSTEMROOT} if $ENV{SYSTEMROOT};\r
}\r
my %expect;\r
@expect{@paths} = map { my $x = $_;\r