2
0
mirror of https://github.com/xcat2/xcat-dep.git synced 2024-12-18 09:11:30 +00:00
xcat-dep/perl-Net-SSLeay/perl-Net-SSLeay-1.2.5-CVE-2005-0106.patch

22 lines
854 B
Diff
Raw Normal View History

--- Net_SSLeay.pm-1.25/SSLeay.pm.cve-2005-0106 2006-01-25 12:37:11.540102265 -0700
+++ Net_SSLeay.pm-1.25/SSLeay.pm 2006-01-25 12:38:16.994260984 -0700
@@ -1853,8 +1853,8 @@
my ($rn_seed_file, $seed, $egd_path) = @_;
my $rnsf = defined($rn_seed_file) && -r $rn_seed_file;
+ $egd_path = '';
$egd_path = $ENV{'EGD_PATH'} if $ENV{'EGD_PATH'};
- $egd_path = '/tmp/entropy' unless $egd_path;
RAND_seed(rand() + $$); # Stir it with time and pid
@@ -1865,7 +1865,7 @@
RAND_load_file($rn_seed_file, -s _) if $rnsf;
RAND_seed($seed) if $seed;
RAND_seed($ENV{RND_SEED}) if $ENV{RND_SEED};
- RAND_egd($egd_path) if -S $egd_path;
+ RAND_egd($egd_path) if -e $egd_path && -S $egd_path;
RAND_load_file($Net::SSLeay::random_device, $Net::SSLeay::how_random/8)
if -r $Net::SSLeay::random_device;
}