[perl #118237] coreamp.t can fail for rand

# New Ticket Created by  Nicholas Clark 
# Please include the string:  [perl #118237]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=118237 >


Sending this to perlbug because I don't want it to get lost, and I don't
know what the right fix should be.

 test 303 - &rand at op/coreamp.t line 640
#      got '2.90736361456823e-05'
# expected /(?^:^0[.\d+-e]*\z)/


The test code is this:

test_proto 'rand';
$tests += 3;
like &CORE::rand, qr/^0[.\d+-e]*\z/, '&rand';
unlike join(" ", &CORE::rand), qr/ /, '&rand in list context';
&cmp_ok(&CORE::rand(78), qw '< 78', '&rand with 1 arg');

This is perl 5, version 19, subversion 1 (v5.19.1 (v5.19.0-320-g8ef446e*)) built for x86_64-linux
(with 1 registered patch, see perl -V for more detail)

not that I think that that part matters.

Nicholas Clark

• [perl #118237] coreamp.t can fail for rand by Nicholas Clark