Allow eg ./perl t/harness t/op/lc.t

1 files changed, 8 insertions, 0 deletions

diff --git a/t/harness b/t/harness
index a8a8d9ae30..cb3d8d75ef 100644
--- a/t/harness
+++ b/t/harness
@@ -206,6 +206,14 @@ if ($^O eq 'MSWin32') {
 @tests=grep /$re/, @tests 
     if $re;
 
+# Allow eg ./perl t/harness t/op/lc.t
+for (@tests) {
+    if (-f "../$_") {
+        $_ = "../$_";
+        s{^\.\./t/}{};
+    }
+}
+
 my %options;
 
 my $type = 'perl';