Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 81521
Collapse All | Expand All

(-)SSLeay.pm.orig (-2 / +3 lines)
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
}

Return to bug 81521