From: Artur Bergman <sky@nanisky.com>
Date: Wed, 26 Sep 2001 11:06:50 +0000 (+0000)
Subject: Threads can start executing in a different order than they were
X-Git-Tag: accepted/trunk/20130322.191538~30106
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9ec9d1e22e91645d4c83fd82f97e3e68e1b9ad2a;p=platform%2Fupstream%2Fperl.git

Threads can start executing in a different order than they were
created.... so we cannot ok() inside the threadstarter.

p4raw-id: //depot/perl@12227
---

diff --git a/ext/threads/t/stress_string.t b/ext/threads/t/stress_string.t
index 369858e..fb87c6c 100644
--- a/ext/threads/t/stress_string.t
+++ b/ext/threads/t/stress_string.t
@@ -35,11 +35,11 @@ ok(2,1,"");
 
 sub test9 {
   my $i = shift;
-  ok($i,1,"Multiple thread test");
   for(1..20000) { $i++};
 }
 my @threads;
 for(3..33) {
+  ok($_,1,"Multiple thread test");
   push @threads ,threads->create('test9',$_);
 }
 sleep 1;