From: Steve Hay <SteveHay@planit.com>
Date: Thu, 21 Feb 2008 14:02:29 +0000 (+0000)
Subject: Fix Module-Build test that has been failing on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba889e8f215b126c3684b4e93a5f654244dc65ce;p=p5sagit%2Fp5-mst-13.2.git

Fix Module-Build test that has been failing on Win32
since the upgrade of Test-Harness at #32659

p4raw-id: //depot/perl@33340
---

diff --git a/lib/Module/Build.pm b/lib/Module/Build.pm
index 6a53ad8..6d6cfe9 100644
--- a/lib/Module/Build.pm
+++ b/lib/Module/Build.pm
@@ -15,7 +15,7 @@ use Module::Build::Base;
 
 use vars qw($VERSION @ISA);
 @ISA = qw(Module::Build::Base);
-$VERSION = '0.2808_01';
+$VERSION = '0.2808_02';
 $VERSION = eval $VERSION;
 
 # Okay, this is the brute-force method of finding out what kind of
diff --git a/lib/Module/Build/t/compat.t b/lib/Module/Build/t/compat.t
index 8eb654a..2d70e98 100644
--- a/lib/Module/Build/t/compat.t
+++ b/lib/Module/Build/t/compat.t
@@ -174,7 +174,8 @@ ok $mb, "Module::Build->new_from_context";
   $output = stdout_of( sub { $ran_ok = $mb->do_system(@make, 'test', 'TEST_VERBOSE=0') } );
   ok $ran_ok, "make test without verbose ran ok";
   $output =~ s/^/# /gm;  # Don't confuse our own test output
-  like $output, qr/(?:# .+basic\.+ok\s+(?:[\d.]+\s*m?s\s*)?)# All tests/,
+  like $output,
+       qr/(?:# .+basic\.+ok\s+(?:[\d.]+\s*m?s\s*)?(?:# \[[\d:]+\]\s*)?)# All tests/,
       'Should be non-verbose';
 
   $mb->delete_filetree($libdir);