BEGIN {
if (THREADSAFE) {
- threads::shared::share($_) for $plan, $test, $failed, $no_diag;
+ threads::shared::share($_) for $plan, $test, $failed, $no_diag, $done_testing;
}
lock $plan if THREADSAFE;
}
for (1 .. $count) {
+ ++$test;
+
my $skip_str = "ok $test # skip";
if (defined $reason) {
sanitize_comment($reason);
local $\;
print $TAP_STREAM "$skip_str\n";
-
- $test++;
}
no warnings 'exiting';