Update Win32 to CPAN version 0.47

  [DELTA]

  0.47    [2013-02-21]
        - Make sure %PROCESSOR_ARCHITECTURE% is defined before calling
          Win32::GetArchName() in t/Names.t.  It may be undefined when
          the test is running under Cygwin crond.
        - In t/Names.t don't assume that LoginName or NodeName is at
          least 2 characters long; it may just be 1.

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index ecae470..ca3b1f5 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -2075,7 +2075,7 @@ use File::Glob qw(:case);
 
     'Win32' => {
         'MAINTAINER'   => 'jand',
-        'DISTRIBUTION' => "JDB/Win32-0.46.tar.gz",
+        'DISTRIBUTION' => "JDB/Win32-0.47.tar.gz",
         'FILES'        => q[cpan/Win32],
         'UPSTREAM'     => 'cpan',
     },

diff --git a/cpan/Win32/Changes b/cpan/Win32/Changes
index d1bdbcc..f39250d 100644 (file)
--- a/cpan/Win32/Changes
+++ b/cpan/Win32/Changes
@@ -1,5 +1,12 @@
 Revision history for the Perl extension Win32.
 
+0.47    [2013-02-21]
+        - Make sure %PROCESSOR_ARCHITECTURE% is defined before calling
+          Win32::GetArchName() in t/Names.t.  It may be undefined when
+          the test is running under Cygwin crond.
+        - In t/Names.t don't assume that LoginName or NodeName is at
+          least 2 characters long; it may just be 1.
+
 0.46    [2013-02-19]
         - add Win2012/Win8 detection (thanks to Michiel Beijen) [rt#82572]
           [perl#116352]

diff --git a/cpan/Win32/Win32.pm b/cpan/Win32/Win32.pm
index fc78e6e..4f6d1ff 100644 (file)
--- a/cpan/Win32/Win32.pm
+++ b/cpan/Win32/Win32.pm
@@ -8,7 +8,7 @@ package Win32;
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.46';
+    $VERSION = '0.47';
     $XS_VERSION = $VERSION;
     $VERSION = eval $VERSION;
 

diff --git a/cpan/Win32/t/Names.t b/cpan/Win32/t/Names.t
index 509751d..e28e4a4 100644 (file)
--- a/cpan/Win32/t/Names.t
+++ b/cpan/Win32/t/Names.t
@@ -23,6 +23,7 @@ if (Win32::IsWinNT()) {
 }
 
 # test Win32::GetArchName()
+$ENV{PROCESSOR_ARCHITECTURE} ||= "unknown";
 my $archname = eval { Win32::GetArchName() };
 is( $@, '', "Win32::GetArchName()" );
 cmp_ok( length($archname), '>=', 3, "  - checking returned architecture name" );
@@ -48,9 +49,9 @@ is( $osname2, $osname, "  - checking that OS name is the same in both calls" );
 # test Win32::LoginName()
 my $login = eval { Win32::LoginName() };
 is( $@, '', "Win32::LoginName()" );
-cmp_ok( length($login), '>', 1, "  - checking returned login name" );
+cmp_ok( length($login), '>', 0, "  - checking returned login name" );
 
 # test Win32::NodeName()
 my $nodename = eval { Win32::NodeName() };
 is( $@, '', "Win32::NodeName()" );
-cmp_ok( length($nodename), '>', 1, "  - checking returned node name" );
+cmp_ok( length($nodename), '>', 0, "  - checking returned node name" );