Change 33749 by [EMAIL PROTECTED] 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) <[EMAIL PROTECTED]>
Date: Wed, 23 Apr 2008 04:12:42 -0700
Message-ID: <[EMAIL PROTECTED]>
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.
