From: Nicholas Clark Date: Tue, 25 Aug 2009 21:06:28 +0000 (+0100) Subject: abd39864 broke t/harness when $ENV{TEST_JOBS} was not set. Oops. Fixed. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0f20b650099024032f274cd75500979583e0eb7;p=p5sagit%2Fp5-mst-13.2.git abd39864 broke t/harness when $ENV{TEST_JOBS} was not set. Oops. Fixed. --- diff --git a/t/harness b/t/harness index e1f4233..afd4b6f 100644 --- a/t/harness +++ b/t/harness @@ -241,25 +241,25 @@ my $h = TAP::Harness->new({ jobs => $jobs, verbosity => $Verbose, }); -if ($jobs) { - if ($state) { - $h->callback( - after_test => sub { - $state->observe_test(@_); - } - ); - $h->callback( - after_runtests => sub { - $state->commit(@_); - } - ); - } + +if ($state) { $h->callback( - parser_args => sub { - my ( $args, $test ) = @_; - push @{ $args->{switches} }, '-I../lib'; + after_test => sub { + $state->observe_test(@_); } - ); + ); + $h->callback( + after_runtests => sub { + $state->commit(@_); + } + ); } + +$h->callback( + parser_args => sub { + my ( $args, $test ) = @_; + push @{ $args->{switches} }, '-I../lib'; + } + ); $h->runtests(@tests); exit(0);