[svn:Module-Build] r12443 - in Module-Build/trunk: . t

[ericwilhelm]

Author: ericwilhelm
Date: Wed Jan 14 10:47:23 2009
New Revision: 12443

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/t/tilde.t

Log:
** merge from https://svn.perl.org/modules/Module-Build/branches/0.31012
t/tilde.t - correct the actual bug of RT#42349 (skip count)
Changes   - 0.31012 entry


Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Wed Jan 14 10:47:23 2009
@@ -9,6 +9,11 @@
  Bug Fixes
  - fix for doubling-up of --prefix (RT#19951)
 
+0.31012 - Wed Jan 14 01:36:19 PST 2009
+
+ Bug Fixes
+ - t/tilde.t maybe actually fixed on MSWin32 now.
+
 0.31011 - Mon Jan 12 21:57:04 PST 2009
 
  Bug Fixes

Modified: Module-Build/trunk/t/tilde.t
==============================================================================
--- Module-Build/trunk/t/tilde.t        (original)
+++ Module-Build/trunk/t/tilde.t        Wed Jan 14 10:47:23 2009
@@ -47,7 +47,7 @@
 
     unless (defined $home) {
       my @info = eval { getpwuid $> };
-      skip "No home directory for tilde-expansion tests", 14 if $@;
+      skip "No home directory for tilde-expansion tests", 15 if $@;
       $home = $info[7];
     }
 
@@ -69,8 +69,7 @@
        $home );
 
     # Test when HOME is different from getpwuid(), as in sudo.
-    SKIP: {
-        skip "Win32 does not sudo anyway", 1 if($^O eq 'MSWin32');
+    {
         local $ENV{HOME} = '/wibble/whomp';
 
         is( run_sample( $p => '~' )->$p(),    "/wibble/whomp" );