Change 33340 by [EMAIL PROTECTED] on 2008/02/21 14:02:29
Fix Module-Build test that has been failing on Win32
since the upgrade of Test-Harness at #32659
Affected files ...
... //depot/perl/lib/Module/Build.pm#16 edit
... //depot/perl/lib/Module/Build/t/compat.t#5 edit
Differences ...
==== //depot/perl/lib/Module/Build.pm#16 (text) ====
Index: perl/lib/Module/Build.pm
--- perl/lib/Module/Build.pm#15~32192~ 2007-10-25 02:46:55.000000000 -0700
+++ perl/lib/Module/Build.pm 2008-02-21 06:02:29.000000000 -0800
@@ -15,7 +15,7 @@
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
==== //depot/perl/lib/Module/Build/t/compat.t#5 (text) ====
Index: perl/lib/Module/Build/t/compat.t
--- perl/lib/Module/Build/t/compat.t#4~32192~ 2007-10-25 02:46:55.000000000
-0700
+++ perl/lib/Module/Build/t/compat.t 2008-02-21 06:02:29.000000000 -0800
@@ -174,7 +174,8 @@
$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);
End of Patch.
