Change the scan policy of the *.t and test.pl files,

now the *.t do not need to live in a t/ directory.

p4raw-id: //depot/perl@10671

2 files changed, 4 insertions, 4 deletions

diff --git a/t/TEST b/t/TEST
index 148e9bd74a..ec8c8f2f15 100755
--- a/t/TEST
+++ b/t/TEST
@@ -69,8 +69,8 @@ unless (@ARGV) {
     }
     my $mani = File::Spec->catdir($updir, "MANIFEST");
     if (open(MANI, $mani)) {
-        while (<MANI>) {
-	    if (m!^((?:ext|lib)/.+/(?:t/.+\.t)|test.pl)\s!) {
+        while (<MANI>) { # similar code in t/harness
+	    if (m!^(ext/.+/([^/]+\.t|test\.pl)|lib/.+(\.t|test\.pl))\s!) {
 		push @ARGV, $1;
 		$OVER{$1} = File::Spec->catdir($updir, $1);
 	    }
diff --git a/t/harness b/t/harness
index 011dc6329c..e5ec0d6a26 100644
--- a/t/harness
+++ b/t/harness
@@ -44,8 +44,8 @@ if (@ARGV) {
     my $updir = File::Spec->updir;
     my $mani  = File::Spec->catdir(File::Spec->updir, "MANIFEST");
     if (open(MANI, $mani)) {
-        while (<MANI>) {
-	    if (m!^((?:ext|lib)/.+/(?:t/.+\.t)|test.pl)\s!) {
+        while (<MANI>) { # similar code in t/TEST
+	    if (m!^(ext/.+/([^/]+\.t|test\.pl)|lib/.+(\.t|test\.pl))\s!) {
 		push @tests, File::Spec->catdir($updir, $1);
 	    }
 	}