harness: There is a .pl test file: cpan/Term-Cap/test.pl

It was handled by using '*' for that directory, but future commits will
want to name individual files in a directory.

1 files changed, 1 insertions, 1 deletions

diff --git a/t/harness b/t/harness
index 8a36561c3d..33ccc09cdc 100644
--- a/t/harness
+++ b/t/harness
@@ -190,7 +190,7 @@ if (@ARGV) {
             if ( m! \A (?: \.\. / )?
                                 ( .*? )         # $1 is the directory path name
                             /
-                                ( [^/]* \.t )   # $2 is the .t name
+                               ( [^/]* \. (?: t | pl ) ) # $2 is the test name
                     \z !x)
             {
                 my $path = $1;