Change 33482: Re: Perl @ http://www.ccl4.org/~nick/P/perl-33444.tar.bz2

[Nicholas Clark]

Change 33482 by [EMAIL PROTECTED] on 2008/03/11 20:16:49

        Subject: Re: Perl @ http://www.ccl4.org/~nick/P/perl-33444.tar.bz2
        From: Reini Urban <[EMAIL PROTECTED]>
        Message-ID: <[EMAIL PROTECTED]>
        Date: Sat, 08 Mar 2008 20:55:36 +0100
        
        * CYG10 improve Win32::GetLastError test

Affected files ...

... //depot/perl/ext/Win32CORE/t/win32core.t#7 edit

Differences ...

==== //depot/perl/ext/Win32CORE/t/win32core.t#7 (text) ====
Index: perl/ext/Win32CORE/t/win32core.t
--- perl/ext/Win32CORE/t/win32core.t#6~31957~   2007-09-25 00:58:02.000000000 
-0700
+++ perl/ext/Win32CORE/t/win32core.t    2008-03-11 13:16:49.000000000 -0700
@@ -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);
End of Patch.