r25506 - in /trunk/libio-socket-ssl-perl: Changes SSL.pm debian/changelog debian/control

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Sun Sep 21 20:55:31 2008
New Revision: 25506

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25506
Log:
* New upstream release.
* Add myself to Uploaders.

Modified:
    trunk/libio-socket-ssl-perl/Changes
    trunk/libio-socket-ssl-perl/SSL.pm
    trunk/libio-socket-ssl-perl/debian/changelog
    trunk/libio-socket-ssl-perl/debian/control

Modified: trunk/libio-socket-ssl-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/Changes?rev=25506&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/Changes (original)
+++ trunk/libio-socket-ssl-perl/Changes Sun Sep 21 20:55:31 2008
@@ -1,3 +1,10 @@
+v1.16
+	- change code for SSL_check_crl to use X509_STORE_set_flags instead of
+          X509_STORE_CTX_set_flags based on bug report from 
+          <tjtoocool[AT]phreaker[DOT]net >
+        - change opened() to report -1 if the IO::Handle is open, but the
+          SSL connection failed, needed with HTTP::Daemon::SSL which will send
+          an error mssage over the unencrypted socket
 v1.15
 	- change internal behavior when SSL handshake failed (like when verify
           callback returned an error) in the hope to fix spurios errors in 

Modified: trunk/libio-socket-ssl-perl/SSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/SSL.pm?rev=25506&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/SSL.pm (original)
+++ trunk/libio-socket-ssl-perl/SSL.pm Sun Sep 21 20:55:31 2008
@@ -51,7 +51,7 @@
 BEGIN {
 	# Declare @ISA, $VERSION, $GLOBAL_CONTEXT_ARGS
 	@ISA = qw(IO::Socket::INET);
-	$VERSION = '1.15';
+	$VERSION = '1.16';
 	$GLOBAL_CONTEXT_ARGS = {};
 
 	#Make $DEBUG another name for $Net::SSLeay::trace
@@ -1178,7 +1178,7 @@
 
 sub opened {
 	my $self = shift;
-	return IO::Handle::opened($self) && ( ${*$self}{'_SSL_opened'} == 1 );
+	return IO::Handle::opened($self) && ${*$self}{'_SSL_opened'};
 }
 
 sub opening {
@@ -1308,7 +1308,7 @@
 
 	if ($arg_hash->{'SSL_check_crl'}) {
 		if (Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 0x0090702f) {
-			Net::SSLeay::X509_STORE_CTX_set_flags(
+			Net::SSLeay::X509_STORE_set_flags(
 				Net::SSLeay::CTX_get_cert_store($ctx),
 				Net::SSLeay::X509_V_FLAG_CRL_CHECK()
 			);
@@ -1882,6 +1882,12 @@
 get to do anything. But with version 0.98 you are better comparing the global exported 
 variable $SSL_ERROR against the exported symbols SSL_WANT_READ and SSL_WANT_WRITE.
 
+=item B<opened()>
+
+This returns false if the socket could not be opened, 1 if the socket could be opened
+and the SSL handshake was successful done and -1 if the underlying IO::Handle is open,
+but the SSL handshake failed.
+
 =item B<< IO::Socket::SSL->start_SSL($socket, ... ) >>
 
 This will convert a glob reference or a socket that you provide to an IO::Socket::SSL

Modified: trunk/libio-socket-ssl-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/debian/changelog?rev=25506&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/debian/changelog (original)
+++ trunk/libio-socket-ssl-perl/debian/changelog Sun Sep 21 20:55:31 2008
@@ -1,3 +1,10 @@
+libio-socket-ssl-perl (1.16-1) unstable; urgency=low
+
+  * New upstream release.
+  * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Sun, 21 Sep 2008 22:51:41 +0200
+
 libio-socket-ssl-perl (1.15-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libio-socket-ssl-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/debian/control?rev=25506&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/debian/control (original)
+++ trunk/libio-socket-ssl-perl/debian/control Sun Sep 21 20:55:31 2008
@@ -3,7 +3,8 @@
 Priority: optional
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Florian Ragwitz <rafl at debian.org>,
- gregor herrmann <gregoa at debian.org>
+ gregor herrmann <gregoa at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
 Build-Depends: debhelper (>= 7)
 Build-Depends-Indep: perl (>= 5.8.0-7), libnet-ssleay-perl (>= 1.35), netbase,
  libnet-libidn-perl