-=| Jonathan Yu, Tue, Jul 21, 2009 at 10:43:33PM -0400 |=- > On Tue, Jul 21, 2009 at 7:03 PM, Don Armstrong<[email protected]> > wrote: > > Package: libmath-random-perl > > Severity: normal > > > > Math::Random has its random number only based on localtime: > > > > $ for a in $(seq 1 20); do perl -MMath::Random=random_uniform -e 'print > > join(q( ),random_uniform(4)),qq(\n)'; done; > > 0.489988645840918 0.579920159789368 0.993361818807086 0.955731167568429 > > 0.489988645840918 0.579920159789368 0.993361818807086 > > [...] > > Maybe a simpler solution (which doesn't require changes to the local > Math::Random) would be to use a module like Math::TrulyRandom to get
Yeah, right. (not) I believe the patch Don is about to send will require smaller changes. Having some conditional code would be nice so that it doesn't break 5.8 installs, but that's it. Then we forward it upstream and let them decide. > some truly random data, or otherwise get the data from, say, > /dev/random, to use as your seed. You can then set Math::Random's seed > using random_set_seed(@seed) Which is outsiide of the scope of this particular module, I believe. -- dam
signature.asc
Description: Digital signature
