Fix parsing of readline(FH) [perl #68458]

[p5sagit/p5-mst-13.2.git] / t / harness

diff --git a/t/harness b/t/harness
index 9e3af04..1eb85f1 100644 (file)
--- 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;
        }