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.)

1 files changed, 2 insertions, 4 deletions

diff --git a/t/harness b/t/harness
index ee47fff619..662afb64dc 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;