From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 9 Apr 2002 23:58:49 +0000 (-0500)
Subject: ext/attrs.t getting skipped
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5157cb1ba3ce3ac3ce7a1f0d200205370f496621;p=p5sagit%2Fp5-mst-13.2.git

ext/attrs.t getting skipped
   From: "Craig A. Berry" <craigberry@mac.com>
   Message-Id: <a05101503b8d970983e6d@[172.16.52.1]>

p4raw-id: //depot/perl@15838
---

diff --git a/t/TEST b/t/TEST
index a970b00..6fe2da5 100755
--- a/t/TEST
+++ b/t/TEST
@@ -79,7 +79,7 @@ unless (@ARGV) {
     my $mani = File::Spec->catdir($updir, "MANIFEST");
     if (open(MANI, $mani)) {
         while (<MANI>) { # similar code in t/harness
-	    if (m!^(ext/\S+/([^/]+\.t|test\.pl)|lib/\S+?(\.t|test\.pl))\s!) {
+	    if (m!^(ext/\S+/?([^/]+\.t|test\.pl)|lib/\S+?(\.t|test\.pl))\s!) {
 		$t = $1;
 		if (!$core || $t =~ m!^lib/[a-z]!)
 		{