Re: 5.8.1 and srand
authorSlaven Rezic <slaven@rezic.de>
Thu, 2 Oct 2003 15:51:11 +0000 (15:51 +0000)
committerAbhijit Menon-Sen <ams@wiw.org>
Thu, 2 Oct 2003 17:25:34 +0000 (17:25 +0000)
Message-Id: <1065109871.3115@devpc01.iconmobile.de>

p4raw-id: //depot/perl@21401

t/op/fork.t

index b3faa19..4300894 100755 (executable)
@@ -426,3 +426,21 @@ waitpid() returned ok
 forked second kid
 second child
 wait() returned ok
+########
+pipe(RDR,WTR) or die $!;
+my $pid = fork;
+die "fork: $!" if !defined $pid;
+if ($pid == 0) {
+    my $rand_child = rand;
+    close RDR;
+    print WTR $rand_child, "\n";
+    close WTR;
+} else {
+    my $rand_parent = rand;
+    close WTR;
+    chomp(my $rand_child  = <RDR>);
+    close RDR;
+    print $rand_child ne $rand_parent, "\n";
+}
+EXPECT
+1