}
}
-my ($plan, $test, $failed, $no_diag);
+my $TAP_STREAM = *STDOUT;
+my $DIAG_STREAM = *STDERR;
+
+my ($plan, $test, $failed, $no_diag, $done_testing);
sub NO_PLAN () { -1 }
sub SKIP_ALL () { -2 }
BEGIN {
- threads::shared::share($plan), lock $plan if THREADSAFE;
+ if (THREADSAFE) {
+ threads::shared::share($_) for $plan, $test, $failed, $no_diag;
+ }
+
+ lock $plan if THREADSAFE;
$plan = undef;
$test = 0;
$failed = 0;
}
-my $TAP_STREAM = *STDOUT;
-my $DIAG_STREAM = *STDERR;
-
sub carp {
my $level = 1 + ($Test::Builder::Level || 0);
my ($file, $line) = (caller $level)[1, 2];
last SKIP;
}
-my $done_testing;
-
sub done_testing {
my ($count) = @_;