1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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 ) .
|
