From a0bd7037d700e5357a2ac886eb134d5822a9ece2 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Thu, 2 Oct 2003 15:51:11 +0000
Subject: [PATCH] Re: 5.8.1 and srand Message-Id:
 <1065109871.3115@devpc01.iconmobile.de>

p4raw-id: //depot/perl@21401
---
 t/op/fork.t | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/t/op/fork.t b/t/op/fork.t
index b3faa19..4300894 100755
--- a/t/op/fork.t
+++ b/t/op/fork.t
@@ -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
-- 
2.7.4