diff options
| author | Max Maischein <corion@corion.net> | 2009-08-11 17:22:58 +0100 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2009-08-11 17:26:17 +0100 |
| commit | 133fac12ff7e3894deb31a204a9a12453b87bbf0 (patch) | |
| tree | 746aeda834cd773038c9f3f035f627e34a16e70d /t | |
| parent | ba2d061b7a1b6cf51d4f90713262b9a5d5811ab6 (diff) | |
| download | perl-133fac12ff7e3894deb31a204a9a12453b87bbf0.tar.gz | |
Restore t/harness path checks on Win32
Message-ID: <4A819742.8050109@corion.net>
Diffstat (limited to 't')
| -rw-r--r-- | t/harness | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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; } |