From 9c9537e64064416b77de9475cf9dd6840af0fa8a Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 31 May 2002 01:10:08 +0000 Subject: Because of #16909 MANIFEST changes. p4raw-id: //depot/perl@16910 --- t/TEST | 2 +- t/harness | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/t/TEST b/t/TEST index 1329205b0c..f2f623df79 100755 --- a/t/TEST +++ b/t/TEST @@ -97,7 +97,7 @@ unless (@ARGV) { my $mani = File::Spec->catfile($updir, "MANIFEST"); if (open(MANI, $mani)) { while () { # similar code in t/harness - if (m!^(ext/\S+/?([^/]+\.t|test\.pl)|lib/\S+?(\.t|test\.pl))\s!) { + if (m!^(ext/\S+/?(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) { $t = $1; if (!$core || $t =~ m!^lib/[a-z]!) { diff --git a/t/harness b/t/harness index 455a1f917c..f7239fe3b1 100644 --- a/t/harness +++ b/t/harness @@ -71,7 +71,7 @@ if (@ARGV) { my $mani = File::Spec->catfile(File::Spec->updir, "MANIFEST"); if (open(MANI, $mani)) { while () { # similar code in t/TEST - if (m!^(ext/\S+/?([^/]+\.t|test\.pl)|lib/\S+?(\.t|test\.pl))\s!) { + if (m!^(ext/\S+/?(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) { push @tests, File::Spec->catfile($updir, $1); } } -- cgit v1.2.1