From: Max Maischein <corion@corion.net>
Date: Tue, 11 Aug 2009 16:22:58 +0000 (+0100)
Subject: Restore t/harness path checks on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=133fac12ff7e3894deb31a204a9a12453b87bbf0;p=p5sagit%2Fp5-mst-13.2.git

Restore t/harness path checks on Win32

Message-ID: <4A819742.8050109@corion.net>
---

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;
 	}