This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Indent the test a bit.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 19 Sep 2001 00:19:45 +0000 (00:19 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 19 Sep 2001 00:19:45 +0000 (00:19 +0000)
p4raw-id: //depot/perl@12079

ext/threads/t/basic.t

index 4c6dde2..99719d6 100755 (executable)
@@ -83,15 +83,23 @@ unless($^O eq 'MSWin32') {
 }
 
 
-my @threads;
-my $i;
 unless($^O eq 'MSWin32') {
-for(1..25) {   
-       push @threads, threads->create(sub { for(1..100000) { my $i  } threads->create(sub { sleep 2})->join() });
-}
-foreach my $thread (@threads) {
+    my @threads;
+    my $i;
+    for(1..25) {
+       push @threads,
+            threads->create(
+                           sub {
+                               for(1..100000) { my $i  }
+                               threads->create(
+                                               sub {sleep 2})
+                                   ->join()
+                               }
+                          );
+    }
+    foreach my $thread (@threads) {
        $thread->join();
-}
+    }
 }
 ok(8,1,"");
 threads->create(sub {