From: Reini Urban <rurban@x-ray.at>
Date: Sat, 8 Mar 2008 20:55:36 +0000 (+0100)
Subject: Re: Perl @ http://www.ccl4.org/~nick/P/perl-33444.tar.bz2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=867ade395b4838b42670e3eb3e274677f9e47a1a;p=p5sagit%2Fp5-mst-13.2.git

Re: Perl @ www.ccl4.org/~nick/P/perl-33444.tar.bz2
Message-ID: <47D2EF38.10503@x-ray.at>

* CYG10 improve Win32::GetLastError test

p4raw-id: //depot/perl@33482
---

diff --git a/ext/Win32CORE/t/win32core.t b/ext/Win32CORE/t/win32core.t
index 95db1f1..5eb0bc4 100644
--- a/ext/Win32CORE/t/win32core.t
+++ b/ext/Win32CORE/t/win32core.t
@@ -10,11 +10,7 @@ BEGIN {
 	}
     }
 
-    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 @@ ok(!defined &Win32::ExpandEnvironmentStrings);
 # [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);