Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Batch files before sending to fudgeall.
We reached enough spectests to exceed the maximum command line length
possible on Windows when calling fudgeall.
  • Loading branch information
jnthn committed Jun 18, 2015
1 parent 8532c0f commit df0c3a3
Showing 1 changed file with 9 additions and 1 deletion.
10 changes: 9 additions & 1 deletion t/harness
Expand Up @@ -75,7 +75,15 @@ if ($list_file) {
my @tfiles = map { all_in($_) } sort @files;

if ($do_fudge) {
@tfiles = fudge(@tfiles);
sub batch {
my @batches;
while (@_) {
my @batch = splice @_, 0, 200;
push @batches, \@batch;
}
@batches
}
@tfiles = map { fudge(@$_) } batch @tfiles;
}

my $tap_harness_class = 'TAP::Harness';
Expand Down

0 comments on commit df0c3a3

Please sign in to comment.