Fix t/Names.t to succeed even if %PROCESSOR_ARCHITECTURE% isn't set

Author: jandubois

Changes

@@ -1,5 +1,10 @@
 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.
+
 0.46    [2013-02-19]
         - add Win2012/Win8 detection (thanks to Michiel Beijen) [rt#82572]
           [perl#116352]

META.yml

@@ -1,7 +1,7 @@
 --- #YAML:1.0
 name: Win32
 abstract: Interfaces to some Win32 API Functions
-version: 0.46
+version: 0.47
 author:
   - Jan Dubois <[email protected]>
 license: perl

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;
 

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