Change 12079 by jhi@alpha on 2001/09/19 00:19:45
Indent the test a bit.
Affected files ...
... //depot/perl/ext/threads/t/basic.t#4 edit
Differences ...
==== //depot/perl/ext/threads/t/basic.t#4 (xtext) ====
Index: perl/ext/threads/t/basic.t
--- perl/ext/threads/t/basic.t.~1~ Tue Sep 18 18:30:05 2001
+++ perl/ext/threads/t/basic.t Tue Sep 18 18:30:05 2001
@@ -83,15 +83,23 @@
}
-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 {
End of Patch.
