openpkg-packages/perl-ssl/perl-ssl.patch

Index: Crypt-SSLeay-0.51/SSLeay.xs
--- Crypt-SSLeay-0.51/SSLeay.xs.orig	2003-05-28 08:55:02 +0200
+++ Crypt-SSLeay-0.51/SSLeay.xs	2006-07-18 08:29:04 +0200
@@ -40,7 +40,7 @@
  */
 
 
-static void InfoCallback(SSL *s,int where,int ret)
+static void InfoCallback(const SSL *s,int where,int ret)
     {
     char *str;
     int w;
@@ -107,9 +107,10 @@
         int rand_bytes_read;
 
 	if(!bNotFirstTime) {
-               SSLeay_add_all_algorithms();
                SSL_load_error_strings();
                ERR_load_crypto_strings();
+               SSL_library_init();
+               SSLeay_add_all_algorithms();
 	       bNotFirstTime = 1;
         }
 
Index: IO-Socket-SSL-1.02/SSL.pm
--- IO-Socket-SSL-1.02/SSL.pm.orig	2006-07-17 17:01:06 +0200
+++ IO-Socket-SSL-1.02/SSL.pm	2006-07-18 08:30:06 +0200
@@ -343,10 +343,7 @@
 
 sub read {
     my $self = shift;
-    return $self->generic_read( 
-	$self->blocking ? \&Net::SSLeay::ssl_read_all : \&Net::SSLeay::read, 
-	@_ 
-    );
+    return $self->generic_read(\&Net::SSLeay::read, @_);
 }
 
 sub peek {