From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Mon, 24 Sep 2007 20:23:49 +0000 (-0400)
Subject: Re: Change 31935: Upgrade to Win32-0.32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b26c47bdfe522ac20549b4765dd6bd317099b19;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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" );
     }