Change 33749: [perl #53238] Patch to stop t/op/fork.t relying on rand

Change 33749 by rgs@scipion on 2008/04/26 20:58:40

	Subject: [perl #53238] Patch to stop t/op/fork.t relying on rand 
	From: David Dick (via RT) <perlbug-followup@perl.org>
	Date: Wed, 23 Apr 2008 04:12:42 -0700
	Message-ID: <rt-3.6.HEAD-23612-1208949161-1511.53238-75-0@perl.org>

Affected files ...

... //depot/perl/t/op/fork.t#28 edit

Differences ...

==== //depot/perl/t/op/fork.t#28 (xtext) ====
Index: perl/t/op/fork.t
--- perl/t/op/fork.t#27~29509~	2006-12-11 05:21:28.000000000 -0800
+++ perl/t/op/fork.t	2008-04-26 13:58:40.000000000 -0700
@@ -445,16 +445,14 @@
 my $pid = fork;
 die "fork: $!" if !defined $pid;
 if ($pid == 0) {
-    my $rand_child = rand;
     close RDR;
-    print WTR $rand_child, "\n";
+    print WTR "STRING_FROM_CHILD\n";
     close WTR;
 } else {
-    my $rand_parent = rand;
     close WTR;
-    chomp(my $rand_child  = <RDR>);
+    chomp(my $string_from_child  = <RDR>);
     close RDR;
-    print $rand_child ne $rand_parent, "\n";
+    print $string_from_child eq "STRING_FROM_CHILD", "\n";
 }
 EXPECT
 1
End of Patch.

• Change 33749: [perl #53238] Patch to stop t/op/fork.t relying on rand by Rafael Garcia-Suarez