modifying package: perl-ssl-5.8.8 20061201 -> 20061227

perl-ssl/perl-ssl.patch

@@ -1,31 +1,7 @@
-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 @@
+--- IO-Socket-SSL-1.02/SSL.pm.orig	2006-12-01 10:51:44 +0100
++++ IO-Socket-SSL-1.02/SSL.pm	2006-12-27 09:15:30 +0100
+@@ -360,10 +360,7 @@
  
  sub read {
      my $self = shift;
@@ -36,4 +12,4 @@ Index: IO-Socket-SSL-1.02/SSL.pm
 +    return $self->generic_read(\&Net::SSLeay::read, @_);
  }
  
- sub peek {
+ # contrary to the behavior of read sysread can read partial data

perl-ssl/perl-ssl.spec

@@ -25,7 +25,7 @@
 #   versions of individual parts
 %define       V_perl              5.8.8
 %define       V_net_ssleay        1.30
-%define       V_crypt_ssleay      0.51
+%define       V_crypt_ssleay      0.53
 %define       V_io_socket_ssl     1.02
 
 #   package information
@@ -39,7 +39,7 @@ Class:        BASE
 Group:        Perl
 License:      GPL/Artistic
 Version:      %{V_perl}
-Release:      20061201
+Release:      20061227
 
 #   list of sources
 Source0:      http://www.cpan.org/modules/by-module/Net/Net_SSLeay.pm-%{V_net_ssleay}.tar.gz