diff options
| -rw-r--r-- | ext/threads/shared/t/queue.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/threads/shared/t/queue.t b/ext/threads/shared/t/queue.t index cf28eb4a90..9aff3e3b2b 100644 --- a/ext/threads/shared/t/queue.t +++ b/ext/threads/shared/t/queue.t @@ -18,6 +18,8 @@ $q = new threads::shared::queue; print "1..26\n"; +my $test : share = 1; + sub reader { my $tid = threads->self->tid; my $i = 0; @@ -25,7 +27,7 @@ sub reader { $i++; # print "reader (tid $tid): waiting for element $i...\n"; my $el = $q->dequeue; - print "ok\n"; + print "ok $test\n"; $test++; # print "reader (tid $tid): dequeued element $i: value $el\n"; select(undef, undef, undef, rand(1)); if ($el == -1) { @@ -56,6 +58,6 @@ for(@threads) { # print "waiting for join\n"; $_->join(); } -print "ok\n"; +print "ok $test\n"; |