Re: Change 31935: Upgrade to Win32-0.32

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709241723o58cc1167m2c44221b77959994@mail.gmail.com>

(Check Win32::GetLastError() rather than $^E for Cygwin, on which $^E
is the last posix error (the same as $!), not the last Win32 error)

p4raw-id: //depot/perl@31956

diff --git a/ext/Win32/Win32.pm b/ext/Win32/Win32.pm
index acdd4fd..6c18a23 100644 (file)
--- a/ext/Win32/Win32.pm
+++ b/ext/Win32/Win32.pm
@@ -8,7 +8,7 @@ BEGIN {
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.32';
+    $VERSION = '0.32_01';
     $XS_VERSION = $VERSION;
     $VERSION = eval $VERSION;
 

diff --git a/ext/Win32/t/Names.t b/ext/Win32/t/Names.t
index bfe8797..509751d 100644 (file)
--- a/ext/Win32/t/Names.t
+++ b/ext/Win32/t/Names.t
@@ -16,7 +16,7 @@ plan tests => $tests;
 if (Win32::IsWinNT()) {
     my $domain = eval { Win32::DomainName() };
     SKIP: {
-       skip 'The Workstation service has not been started', 2 if $^E == 2138;
+       skip('The Workstation service has not been started', 2) if (Win32::GetLastError() == 2138);
        is( $@, '', "Win32::DomainName()" );
        like( $domain, '/^[a-zA-Z0-9!@#$%^&()_\'{}.~-]+$/', "  - checking returned domain" );
     }