difforig perl-5.10.0/ext/Win32CORE/t

2007-12-22  Reini Urban <rurban@x-ray.at>

diff -ub  perl-5.10.0/ext/Win32CORE/t/win32core.t.orig
--- perl-5.10.0/ext/Win32CORE/t/win32core.t.orig	2007-12-18 10:47:07.000000000 +0000
+++ perl-5.10.0/ext/Win32CORE/t/win32core.t	2007-12-22 18:25:17.156250000 +0000
@@ -10,11 +10,7 @@
 	}
     }
 
-    if ($^O eq 'cygwin') {
-        plan skip_all => '$^E is not Win32::GetLastError() under Cygwin';
-    } else {
         plan tests => 4;
-    }
 };
 use_ok( "Win32CORE" );
 
@@ -24,7 +20,7 @@
 # [perl #42925] - Loading Win32::GetLastError() via the forwarder function
 # should not affect the last error being retrieved
 $^E = 42;
-is(Win32::GetLastError(), 42, 'GetLastError() works on the first call');
+is(Win32::GetLastError(), $^O eq 'cygwin' ? 0 : 42, 'GetLastError() works on the first call');
 
 # Now all Win32::* functions should be loaded
 ok(defined &Win32::ExpandEnvironmentStrings);