e-smith-lib/sme7/e-smith-lib-1.18.0-urandom.patch

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
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm      2008-08-09 18:52:53.000000000 -0600
+++ 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
@@ -840,19 +840,19 @@
 
     use MIME::Base64 qw(encode_base64);
 
-    unless ( open( RANDOM, "/dev/random" ) )
+    unless ( open( RANDOM, "/dev/urandom" ) )
     {
-        warn "Could not open /dev/random: $!";
+        warn "Could not open /dev/urandom: $!";
         return undef;
     }
 
     my $buf = "not set";
 
     # 57 bytes is a full line of Base64 coding, and contains
-    # 456 bits of randomness - given a perfectly random /dev/random
+    # 456 bits of randomness - given a perfectly random /dev/urandom
     if ( read( RANDOM, $buf, 57 ) != 57 )
     {
-        warn("Short read from /dev/random: $!");
+        warn("Short read from /dev/urandom: $!");
         return undef;
     }
     close RANDOM;
1	slords	1.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;