Package: perl Version: 5.8.4-8 Hi, perl failed for me to build on mips with gcc-4.0 due to a broken testcase. Assuming the random number generator returns 2 non equal numbers after each other is likely but not definite.
So by a certain probability the build fails:
t/op/fork.................................PROG:
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";
}
EXPECTED:
1
GOT:
FAILED at test 19
Cut and pasting the testcase and running it again and again gives
random output:
[EMAIL PROTECTED]:~$ perl i
1
[EMAIL PROTECTED]:~$ perl i
1
[EMAIL PROTECTED]:~$ perl i
1
[EMAIL PROTECTED]:~$ perl i
[EMAIL PROTECTED]:~$ perl i
[EMAIL PROTECTED]:~$ perl i
1
[EMAIL PROTECTED]:~$ perl i
1
Flo
--
Florian Lohoff [EMAIL PROTECTED] +49-171-2280134
Heisenberg may have been here.
signature.asc
Description: Digital signature
