# 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