diff options
author | Steve Hay <SteveHay@planit.com> | 2009-02-12 10:46:32 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2009-02-12 10:49:24 +0000 |
commit | e469bedac84e3190c05f3a44d15fca15dea0b5d7 (patch) | |
tree | 819334a275630c1a803e2bec36f6c21f0cfe9639 /t/harness | |
parent | 32d85a01d8a0c63b0bda39908dac74ae5bd5fcbd (diff) | |
download | perl-e469bedac84e3190c05f3a44d15fca15dea0b5d7.tar.gz |
win32/ext doesn't exist any more, so no need to look there for tests
Diffstat (limited to 't/harness')
-rw-r--r-- | t/harness | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -188,9 +188,8 @@ if (@ARGV) { my $mani = File::Spec->catfile(File::Spec->updir, "MANIFEST"); if (open(MANI, $mani)) { my @manitests = (); - my $ext_pat = $^O eq 'MSWin32' ? '(?:win32/)?ext' : 'ext'; while (<MANI>) { # similar code in t/TEST - if (m!^($ext_pat/(\S+)/+(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) { + if (m!^(ext/(\S+)/+(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) { my ($test, $extension) = ($1, $2); if (defined $extension) { $extension =~ s!/t$!!; |