Craig A. Berry [Tue, 9 Apr 2002 23:58:49 +0000 (18:58 -0500)]
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <
a05101503b8d970983e6d@[172.16.52.1]>
p4raw-id: //depot/perl@15838
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]!)
{