diff options
| author | Steve Hay <SteveHay@planit.com> | 2006-06-30 13:46:06 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-06-30 13:46:06 +0000 |
| commit | 007018781f8447ed48dee6b5394b6d00745d543b (patch) | |
| tree | 857103209ed0460ef4f704f7612295e65cf16344 /t/harness | |
| parent | 625dac9da817af72bb35414c226dadeb2d915f21 (diff) | |
| download | perl-007018781f8447ed48dee6b5394b6d00745d543b.tar.gz | |
Add Win32API::File to the core
For discussions, see the thread starting here:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2006-06/msg00710.html
p4raw-id: //depot/perl@28460
Diffstat (limited to 't/harness')
| -rw-r--r-- | t/harness | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -97,8 +97,9 @@ 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/(\S+)/+(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) { + if (m!^($ext_pat/(\S+)/+(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) { my ($test, $extension) = ($1, $2); if (defined $extension) { $extension =~ s!/t$!!; |