Description: Remove the ability to fall back to Data::Random Forwarded: yes Bug: https://rt.cpan.org/Public/Bug/Display.html?id=71421 Author: Harlan Lieberman-Berg <H.LiebermanBerg@gmail.com> --- a/lib/Crypt/DSA/Util.pm +++ b/lib/Crypt/DSA/Util.pm @@ -64,11 +64,8 @@ } close $fh; } - elsif ( require Data::Random ) { - $r .= Data::Random::rand_chars( set=>'numeric' ) for 1..$bytes; - } else { - croak "makerandom requires /dev/random or Data::Random"; + croak "makerandom requires /dev/random"; } my $down = $size - 1; $r = unpack 'H*', pack 'B*', '0' x ( $size % 8 ? 8 - $size % 8 : 0 ) .