harness: Don't strip off '../' in path

This will be useful in future commits

1 files changed, 4 insertions, 3 deletions

diff --git a/t/harness b/t/harness
index 700d3d6870..d9b4023be7 100644
--- a/t/harness
+++ b/t/harness
@@ -187,8 +187,9 @@ if (@ARGV) {
 
             # Keep a list of the distinct directory names, and another list of
             # those which contain a file whose name begins with a 0
-            if ($file =~ m! \A (?: \.\. / )?
-                                ( .*? )         # $1 is the directory path name
+            if ($file =~ m! \A ( (?: \.\. / )?
+                                 .*?
+                               )             # $1 is the directory path name
                                /
                                ( [^/]* \. (?: t | pl ) ) # $2 is the test name
                          \z !x)
@@ -206,7 +207,7 @@ if (@ARGV) {
         # directory containing such files should be tested in serial order.
         #
         # Add exceptions to the above rule
-        for (qw(cpan/IO-Zlib/t ext/File-Find/t)) {
+        for (qw(../cpan/IO-Zlib/t ../ext/File-Find/t)) {
             $serials{$_} = 1;
         }