| 1 |
diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm |
| 2 |
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm 2008-08-09 18:52:53.000000000 -0600 |
| 3 |
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm 2008-08-09 18:52:39.000000000 -0600 |
| 4 |
@@ -840,19 +840,19 @@ |
| 5 |
|
| 6 |
use MIME::Base64 qw(encode_base64); |
| 7 |
|
| 8 |
- unless ( open( RANDOM, "/dev/random" ) ) |
| 9 |
+ unless ( open( RANDOM, "/dev/urandom" ) ) |
| 10 |
{ |
| 11 |
- warn "Could not open /dev/random: $!"; |
| 12 |
+ warn "Could not open /dev/urandom: $!"; |
| 13 |
return undef; |
| 14 |
} |
| 15 |
|
| 16 |
my $buf = "not set"; |
| 17 |
|
| 18 |
# 57 bytes is a full line of Base64 coding, and contains |
| 19 |
- # 456 bits of randomness - given a perfectly random /dev/random |
| 20 |
+ # 456 bits of randomness - given a perfectly random /dev/urandom |
| 21 |
if ( read( RANDOM, $buf, 57 ) != 57 ) |
| 22 |
{ |
| 23 |
- warn("Short read from /dev/random: $!"); |
| 24 |
+ warn("Short read from /dev/urandom: $!"); |
| 25 |
return undef; |
| 26 |
} |
| 27 |
close RANDOM; |
Parent Directory
| 
Revision Log
| 
Revision Graph
