There is a bug in t/op/coreamp.t tests that fails randomly. Fixed with this upstream patch:
commit fba93b250c0d566f7ef26442312286310b2b9b46
Author: Father Chrysostomos <sprout>
Date: Sun Jun 2 00:36:33 2013 -0700
[perl #118237] Fix coreamp.t’s rand test
when rand returns something really small that does not
begin with 0, such as 2.90736361456823e-05.
diff --git a/t/op/coreamp.t b/t/op/coreamp.t
index c1f7181..fe7c741 100644
--- a/t/op/coreamp.t
+++ b/t/op/coreamp.t
@@ -637,7 +637,7 @@ test_proto 'quotemeta', '$', '\$';
test_proto 'rand';
$tests += 3;
-like &CORE::rand, qr/^0[.\d+-e]*\z/, '&rand';
+like &CORE::rand, qr/^[.\d+-e]*\z/, '&rand';
unlike join(" ", &CORE::rand), qr/ /, '&rand in list context';
&cmp_ok(&CORE::rand(78), qw '< 78', '&rand with 1 arg');
Comment 1Fedora Admin XMLRPC Client
2013-08-12 11:43:33 UTC
This package has changed ownership in the Fedora Package Database. Reassigning to the new owner of this component.
Comment 2Fedora Update System
2013-09-11 14:00:10 UTC
Comment 3Fedora Update System
2013-09-11 16:56:05 UTC
Package perl-5.18.1-288.fc20:
* should fix your issue,
* was pushed to the Fedora 20 testing repository,
* should be available at your local mirror within two days.
Update it with:
# su -c 'yum update --enablerepo=updates-testing perl-5.18.1-288.fc20'
as soon as you are able to.
Please go to the following url:
https://admin.fedoraproject.org/updates/FEDORA-2013-16400/perl-5.18.1-288.fc20
then log in and leave karma (feedback).
Comment 4Fedora End Of Life
2013-09-16 17:07:35 UTC
There is a bug in t/op/coreamp.t tests that fails randomly. Fixed with this upstream patch: commit fba93b250c0d566f7ef26442312286310b2b9b46 Author: Father Chrysostomos <sprout> Date: Sun Jun 2 00:36:33 2013 -0700 [perl #118237] Fix coreamp.t’s rand test when rand returns something really small that does not begin with 0, such as 2.90736361456823e-05. diff --git a/t/op/coreamp.t b/t/op/coreamp.t index c1f7181..fe7c741 100644 --- a/t/op/coreamp.t +++ b/t/op/coreamp.t @@ -637,7 +637,7 @@ test_proto 'quotemeta', '$', '\$'; test_proto 'rand'; $tests += 3; -like &CORE::rand, qr/^0[.\d+-e]*\z/, '&rand'; +like &CORE::rand, qr/^[.\d+-e]*\z/, '&rand'; unlike join(" ", &CORE::rand), qr/ /, '&rand in list context'; &cmp_ok(&CORE::rand(78), qw '< 78', '&rand with 1 arg');