Merge pull request #25 from eserte/faster-fork-t

faster fork.t

Author: mohawk2

t/fork.t

@@ -42,8 +42,7 @@ for my $i (1 .. $children) {
   } else {
     # in a child we can't keep the count properly so we do it manually
     # make sure that child 1 dies first
-    srand();
-    my $time = (($i-1) * 5) +int(rand(5));
+    my $time = ($i-1) * 3;
     print "# child $i sleeping for $time seconds\n";
     sleep($time);
     my $count = $i + 1;
@@ -76,8 +75,7 @@ for my $i (1 .. $children) {
     # parent process
     next;
   } else {
-    srand();
-    my $time = (($i-1) * 5) +int(rand(5));
+    my $time = ($i-1) * 3;
     print "# child $i sleeping for $time seconds\n";
     sleep($time);
     my $count = 5 + $i;