libnet-ssleay-perl (1.25-1.1) unstable; urgency=high

  * Non-maintainer upload.

  * Applied patch by Javier <jfs@computer.org> to fix insecure

    entropy source [SSLeay.pm, CAN-2005-0106]

 -- Steve Kemp <skx@debian.org>  Fri, 18 Feb 2005 13:57:43 +0000

--- libnet-ssleay-perl-1.25.orig/SSLeay.pm

+++ libnet-ssleay-perl-1.25/SSLeay.pm

@@ -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;

 }