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

Index: Crypt-SSLeay-0.57/Makefile.PL
--- Crypt-SSLeay-0.57/Makefile.PL.orig	2007-09-17 22:36:59 +0200
+++ Crypt-SSLeay-0.57/Makefile.PL	2007-09-18 08:28:09 +0200
@@ -35,15 +35,7 @@
 }
 else {
     # Unix and the rest
-    @POSSIBLE_SSL_DIRS = qw(
-        /local
-        /local/ssl
-        /opt/ssl
-        /usr
-        /usr/local
-        /usr/local/ssl
-        /usr/local/openssl
-    );
+    @POSSIBLE_SSL_DIRS = qw(/usr);
 }
 
 my @CANDIDATE = do {
Index: IO-Socket-SSL-1.12/Makefile.PL
--- IO-Socket-SSL-1.12/Makefile.PL.orig	2007-08-10 10:54:23 +0200
+++ IO-Socket-SSL-1.12/Makefile.PL	2007-09-18 08:28:09 +0200
@@ -71,3 +71,4 @@
   'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz', },
   'NO_META' => 1,
 );
+
Index: IO-Socket-SSL-1.12/SSL.pm
--- IO-Socket-SSL-1.12/SSL.pm.orig	2007-09-13 21:19:34 +0200
+++ IO-Socket-SSL-1.12/SSL.pm	2007-09-18 08:28:09 +0200
@@ -388,10 +388,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, @_);
 }
 
 # contrary to the behavior of read sysread can read partial data
Index: Net-SSLeay-1.32/Makefile.PL
--- Net-SSLeay-1.32/Makefile.PL.orig	2007-09-18 08:28:10 +0200
+++ Net-SSLeay-1.32/Makefile.PL	2007-09-18 08:28:40 +0200
@@ -11,10 +11,8 @@
 ssleay();
 
 build_requires('Sub::Uplevel');
-build_requires('Test::Exception');
 build_requires('Array::Compare');
 build_requires('Tree::DAG_Node');
-build_requires('Test::Warn');
 requires('MIME::Base64');
 
 clean_files(map { fixpath($_) } qw(
@@ -33,3 +31,4 @@
 
 auto_install();
 WriteAll();
+