From: Jarkko Hietaniemi Date: Wed, 19 Sep 2001 00:19:45 +0000 (+0000) Subject: Indent the test a bit. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea63ed0e75f87f41b120354ed354081869ee56fc;p=p5sagit%2Fp5-mst-13.2.git Indent the test a bit. p4raw-id: //depot/perl@12079 --- diff --git a/ext/threads/t/basic.t b/ext/threads/t/basic.t index 4c6dde2..99719d6 100755 --- a/ext/threads/t/basic.t +++ b/ext/threads/t/basic.t @@ -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 {