From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 26 Aug 2009 19:55:36 +0000 (+0100)
Subject: No need to use File::Spec, as all names remain internal to perl.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e772598991ca5994af17ccfc75b507c64089f992;p=p5sagit%2Fp5-mst-13.2.git

No need to use File::Spec, as all names remain internal to perl.

(This will make merging the code in t/TEST and t/harness easier.)
---

diff --git a/t/harness b/t/harness
index ee47fff..662afb6 100644
--- a/t/harness
+++ b/t/harness
@@ -114,9 +114,7 @@ sub _tests_from_manifest {
     }
 
     my @results;
-    use File::Spec;
-    my $updir = File::Spec->updir;
-    my $mani  = File::Spec->catfile(File::Spec->updir, "MANIFEST");
+    my $mani  = '../MANIFEST';
     if (open(MANI, $mani)) {
 	while (<MANI>) { # similar code in t/TEST
 	    if (m!^(ext/(\S+)/+(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) {
@@ -129,7 +127,7 @@ sub _tests_from_manifest {
 		    $flat_extension =~ s!-!/!g;
 		    next if $skip{$flat_extension}; # Foo/Bar may live in Foo-Bar
 		}
-		push @results, File::Spec->catfile($updir, $test);
+		push @results, "../$test";
 	    }
 	}
 	close MANI;