Remove test for Win32::GetLongPathName($ENV{SystemRoot})

Author: jandubois

Changes

@@ -1,5 +1,10 @@
 Revision history for the Perl extension Win32.
 
+0.42	[2011-01-06]
+	- remove brittle test for Win32::GetLongPathName($ENV{SYSTEMROOT})
+	  which will fail if the case of the environment value doesn't
+	  exactly match the case of the directory name on the filesystem.
+
 0.41	[2010-12-10]
 	- Fix Win32::GetChipName() to return the native processor type when
 	  running 32-bit Perl on 64-bit Windows (WOW64).  This will also

META.yml

@@ -1,7 +1,7 @@
 --- #YAML:1.0
 name: Win32
 abstract: Interfaces to some Win32 API Functions
-version: 0.41
+version: 0.42
 author:
   - Jan Dubois <[email protected]>
 license: perl

Win32.pm

@@ -8,7 +8,7 @@ package Win32;
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.41';
+    $VERSION = '0.42';
     $XS_VERSION = $VERSION;
     $VERSION = eval $VERSION;
 

t/GetLongPathName.t

@@ -34,7 +34,6 @@ if ($drive) {
     for (@paths) {
 	s/^c:/$drive/;
     }
-    push @paths, $ENV{SYSTEMROOT} if $ENV{SYSTEMROOT};
 }
 my %expect;
 @expect{@paths} = map { my $x = $_;