perl-ssl.patch 1.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. Index: Crypt-SSLeay-0.57/Makefile.PL
  2. --- Crypt-SSLeay-0.57/Makefile.PL.orig 2007-09-17 22:36:59 +0200
  3. +++ Crypt-SSLeay-0.57/Makefile.PL 2008-07-24 20:02:48 +0200
  4. @@ -35,15 +35,7 @@
  5. }
  6. else {
  7. # Unix and the rest
  8. - @POSSIBLE_SSL_DIRS = qw(
  9. - /local
  10. - /local/ssl
  11. - /opt/ssl
  12. - /usr
  13. - /usr/local
  14. - /usr/local/ssl
  15. - /usr/local/openssl
  16. - );
  17. + @POSSIBLE_SSL_DIRS = qw(/usr);
  18. }
  19. my @CANDIDATE = do {
  20. Index: IO-Socket-SSL-1.21/Makefile.PL
  21. --- IO-Socket-SSL-1.21/Makefile.PL.orig 2008-02-22 08:10:38 +0100
  22. +++ IO-Socket-SSL-1.21/Makefile.PL 2008-07-24 20:02:48 +0200
  23. @@ -97,3 +97,4 @@
  24. 'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz', },
  25. 'NO_META' => 1,
  26. );
  27. +
  28. Index: IO-Socket-SSL-1.21/SSL.pm
  29. --- IO-Socket-SSL-1.21/SSL.pm.orig 2008-07-16 11:13:58 +0200
  30. +++ IO-Socket-SSL-1.21/SSL.pm 2008-07-24 20:02:48 +0200
  31. @@ -563,10 +563,7 @@
  32. sub read {
  33. my $self = shift;
  34. - return $self->generic_read(
  35. - $self->blocking ? \&Net::SSLeay::ssl_read_all : \&Net::SSLeay::read,
  36. - @_
  37. - );
  38. + return $self->generic_read(\&Net::SSLeay::read, @_);
  39. }
  40. # contrary to the behavior of read sysread can read partial data