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 ) .