Lines 43-48
Link Here
|
43 |
# Kim Minh Kaplan <kmkaplan@selfoffice._com> |
43 |
# Kim Minh Kaplan <kmkaplan@selfoffice._com> |
44 |
# 17.8.2003, added http support :-) --Sampo |
44 |
# 17.8.2003, added http support :-) --Sampo |
45 |
# 17.8.2003, started 1.25 dev --Sampo |
45 |
# 17.8.2003, started 1.25 dev --Sampo |
|
|
46 |
# 26.1.2005, do not use /tmp if EGD_PATH is not defined |
46 |
# |
47 |
# |
47 |
# The distribution and use of this module are subject to the conditions |
48 |
# The distribution and use of this module are subject to the conditions |
48 |
# listed in LICENSE file at the root of OpenSSL-0.9.7b |
49 |
# listed in LICENSE file at the root of OpenSSL-0.9.7b |
Lines 1853-1860
Link Here
|
1853 |
my ($rn_seed_file, $seed, $egd_path) = @_; |
1854 |
my ($rn_seed_file, $seed, $egd_path) = @_; |
1854 |
my $rnsf = defined($rn_seed_file) && -r $rn_seed_file; |
1855 |
my $rnsf = defined($rn_seed_file) && -r $rn_seed_file; |
1855 |
|
1856 |
|
|
|
1857 |
$egd_path = ''; |
1856 |
$egd_path = $ENV{'EGD_PATH'} if $ENV{'EGD_PATH'}; |
1858 |
$egd_path = $ENV{'EGD_PATH'} if $ENV{'EGD_PATH'}; |
1857 |
$egd_path = '/tmp/entropy' unless $egd_path; |
|
|
1858 |
|
1859 |
|
1859 |
RAND_seed(rand() + $$); # Stir it with time and pid |
1860 |
RAND_seed(rand() + $$); # Stir it with time and pid |
1860 |
|
1861 |
|
Lines 1865-1871
Link Here
|
1865 |
RAND_load_file($rn_seed_file, -s _) if $rnsf; |
1866 |
RAND_load_file($rn_seed_file, -s _) if $rnsf; |
1866 |
RAND_seed($seed) if $seed; |
1867 |
RAND_seed($seed) if $seed; |
1867 |
RAND_seed($ENV{RND_SEED}) if $ENV{RND_SEED}; |
1868 |
RAND_seed($ENV{RND_SEED}) if $ENV{RND_SEED}; |
1868 |
RAND_egd($egd_path) if -S $egd_path; |
1869 |
RAND_egd($egd_path) if -e $egd_path && -S $egd_path; |
1869 |
RAND_load_file($Net::SSLeay::random_device, $Net::SSLeay::how_random/8) |
1870 |
RAND_load_file($Net::SSLeay::random_device, $Net::SSLeay::how_random/8) |
1870 |
if -r $Net::SSLeay::random_device; |
1871 |
if -r $Net::SSLeay::random_device; |
1871 |
} |
1872 |
} |