From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 1 Jun 2002 15:03:57 +0000 (+0000)
Subject: Even more VMSifying (this time more like de-MacOSifying).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b70f73b7d853093843f0d9077ffc64201e345603;p=p5sagit%2Fp5-mst-13.2.git

Even more VMSifying (this time more like de-MacOSifying).

p4raw-id: //depot/perl@16959
---

diff --git a/lib/Test/Harness/t/test-harness.t b/lib/Test/Harness/t/test-harness.t
index 83f6c0b..3cb0abb 100644
--- a/lib/Test/Harness/t/test-harness.t
+++ b/lib/Test/Harness/t/test-harness.t
@@ -453,7 +453,9 @@ while (my($test, $expect) = each %samples) {
         is_deeply( {map { $_=>$totals->{$_} } keys %{$expect->{total}}},
                    $expect->{total},
                                                   "$test - totals" );
-        is_deeply( {map { $_=>$failed->{catfile($SAMPLE_TESTS, $test)}{$_} }
+        is_deeply( {map { $_=>$failed->{$^O eq 'macos' ?
+                                        catfile($SAMPLE_TESTS, $test) :
+                                        "$SAMPLE_TESTS/$test"}{$_} }
                     keys %{$expect->{failed}}},
                    $expect->{failed},
                                                   "$test - failed" );