In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/133fac12ff7e3894deb31a204a9a12453b87bbf0?hp=ba2d061b7a1b6cf51d4f90713262b9a5d5811ab6>
- Log ----------------------------------------------------------------- commit 133fac12ff7e3894deb31a204a9a12453b87bbf0 Author: Max Maischein <[email protected]> Date: Tue Aug 11 17:22:58 2009 +0100 Restore t/harness path checks on Win32 Message-ID: <[email protected]> ----------------------------------------------------------------------- Summary of changes: t/harness | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/t/harness b/t/harness index 9e3af04..1eb85f1 100644 --- a/t/harness +++ b/t/harness @@ -212,7 +212,10 @@ if (@ARGV) { my %total_time; for (@last) { - m!(.*/)! or die "'$_'"; + if ($^O eq 'MSWin32') { + s,\\,/,g; # canonicalize path + }; + m!(.*[/])! or die "'$_'"; push @{$dir{$1}}, $_; $total_time{$1} += $times{$_} || 0; } -- Perl5 Master Repository
