perl-ssl.patch 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. Index: Crypt-SSLeay-0.56/Makefile.PL
  2. --- Crypt-SSLeay-0.56/Makefile.PL.orig 2007-05-01 09:37:58 +0200
  3. +++ Crypt-SSLeay-0.56/Makefile.PL 2007-05-01 09:40:08 +0200
  4. @@ -39,15 +39,7 @@
  5. }
  6. else {
  7. # Unix and the rest
  8. - @POSSIBLE_SSL_DIRS = qw(
  9. - /usr/local/openssl
  10. - /usr/local/ssl
  11. - /local/ssl
  12. - /opt/ssl
  13. - /usr/local
  14. - /local
  15. - /usr
  16. - );
  17. + @POSSIBLE_SSL_DIRS = qw(/usr);
  18. }
  19. my @CANDIDATE = map {Candidate($_)} @POSSIBLE_SSL_DIRS;
  20. Index: IO-Socket-SSL-1.08/Makefile.PL
  21. --- IO-Socket-SSL-1.08/Makefile.PL.orig 2007-05-01 09:38:01 +0200
  22. +++ IO-Socket-SSL-1.08/Makefile.PL 2007-05-01 09:38:01 +0200
  23. @@ -62,3 +62,4 @@
  24. 'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz', },
  25. 'NO_META' => 1,
  26. );
  27. +
  28. Index: IO-Socket-SSL-1.08/SSL.pm
  29. --- IO-Socket-SSL-1.08/SSL.pm.orig 2007-04-30 09:40:47 +0200
  30. +++ IO-Socket-SSL-1.08/SSL.pm 2007-05-01 09:37:49 +0200
  31. @@ -377,10 +377,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