r42141 - in /trunk/libio-socket-ssl-perl: Changes MANIFEST META.yml SSL.pm debian/changelog debian/control t/memleak_bad_handshake.t

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Thu Aug 20 08:52:14 UTC 2009


Author: ansgar-guest
Date: Thu Aug 20 08:52:08 2009
New Revision: 42141

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42141
Log:
* New upstream release.
* debian/control: Make build-dep on perl unversioned.
* Bump Standards-Version to 3.8.3.

Added:
    trunk/libio-socket-ssl-perl/t/memleak_bad_handshake.t
      - copied unchanged from r42140, branches/upstream/libio-socket-ssl-perl/current/t/memleak_bad_handshake.t
Modified:
    trunk/libio-socket-ssl-perl/Changes
    trunk/libio-socket-ssl-perl/MANIFEST
    trunk/libio-socket-ssl-perl/META.yml
    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=42141&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/Changes (original)
+++ trunk/libio-socket-ssl-perl/Changes Thu Aug 20 08:52:08 2009
@@ -1,3 +1,11 @@
+
+v1.30 2009.08.19
+- fix test t/memleak_bad_handshake.t
+v1.29 2009.08.19
+- fixed thanks for version 1.28
+v1.28 2009.08.19
+- fix memleak when SSL handshake failed.
+  Thanks richardhundtu[AT]gmail[DOT]com
 
 v1.27 2009.07.24
 - changed possible local/utf-8 depended \w in some regex against more

Modified: trunk/libio-socket-ssl-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/MANIFEST?rev=42141&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/MANIFEST (original)
+++ trunk/libio-socket-ssl-perl/MANIFEST Thu Aug 20 08:52:08 2009
@@ -40,5 +40,6 @@
 t/auto_verify_hostname.t
 t/inet6.t
 t/testlib.pl
+t/memleak_bad_handshake.t
 util/export_certs.pl
 META.yml                                 Module meta-data (added by MakeMaker)

Modified: trunk/libio-socket-ssl-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/META.yml?rev=42141&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/META.yml (original)
+++ trunk/libio-socket-ssl-perl/META.yml Thu Aug 20 08:52:08 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                IO-Socket-SSL
-version:             1.27
+version:             1.30
 abstract:            Nearly transparent SSL encapsulation for IO::Socket::INET.
 license:             ~
 author:              

Modified: trunk/libio-socket-ssl-perl/SSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/SSL.pm?rev=42141&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/SSL.pm (original)
+++ trunk/libio-socket-ssl-perl/SSL.pm Thu Aug 20 08:52:08 2009
@@ -66,7 +66,7 @@
 	}) {
 		@ISA = qw(IO::Socket::INET);
 	}
-	$VERSION = '1.27';
+	$VERSION = '1.30';
 	$GLOBAL_CONTEXT_ARGS = {};
 
 	#Make $DEBUG another name for $Net::SSLeay::trace
@@ -787,8 +787,8 @@
 sub stop_SSL {
 	my $self = shift || return _invalid_object();
 	my $stop_args = (ref($_[0]) eq 'HASH') ? $_[0] : {@_};
-	return $self->error("SSL object already closed") 
-		unless (${*$self}{'_SSL_opened'} == 1);
+	return $self->error("SSL object not open") 
+		if ! ${*$self}{'_SSL_opened'};
 
 	if (my $ssl = ${*$self}{'_SSL_object'}) {
 		my $shutdown_done;
@@ -862,7 +862,7 @@
 sub kill_socket {
 	my $self = shift;
 	shutdown($self, 2);
-	$self->close(SSL_no_shutdown => 1) if (${*$self}{'_SSL_opened'} == 1);
+	$self->close(SSL_no_shutdown => 1) if ${*$self}{'_SSL_opened'};
 	delete(${*$self}{'_SSL_ctx'});
 	return;
 }
@@ -1187,7 +1187,7 @@
 sub DESTROY {
 	my $self = shift || return;
 	$self->close(_SSL_in_DESTROY => 1, SSL_no_shutdown => 1) 
-		if (${*$self}{'_SSL_opened'} == 1);
+		if ${*$self}{'_SSL_opened'};
 	delete(${*$self}{'_SSL_ctx'});
 }
 

Modified: trunk/libio-socket-ssl-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/debian/changelog?rev=42141&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/debian/changelog (original)
+++ trunk/libio-socket-ssl-perl/debian/changelog Thu Aug 20 08:52:08 2009
@@ -1,3 +1,11 @@
+libio-socket-ssl-perl (1.30-1) unstable; urgency=low
+
+  * New upstream release.
+  * debian/control: Make build-dep on perl unversioned.
+  * Bump Standards-Version to 3.8.3.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Thu, 20 Aug 2009 10:51:59 +0200
+
 libio-socket-ssl-perl (1.27-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=42141&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/debian/control (original)
+++ trunk/libio-socket-ssl-perl/debian/control Thu Aug 20 08:52:08 2009
@@ -5,10 +5,10 @@
 Uploaders: gregor herrmann <gregoa at debian.org>,
  Ansgar Burchardt <ansgar at 43-1.org>, Rene Mayorga <rmayorga at debian.org>,
  Antonio Radici <antonio at dyne.org>, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
-Build-Depends: debhelper (>= 7), perl (>= 5.8.0-7)
+Build-Depends: debhelper (>= 7), perl
 Build-Depends-Indep: libnet-ssleay-perl (>= 1.35), netbase, libio-socket-inet6-perl,
  libnet-libidn-perl
-Standards-Version: 3.8.2
+Standards-Version: 3.8.3
 Homepage: http://search.cpan.org/dist/IO-Socket-SSL/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libio-socket-ssl-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libio-socket-ssl-perl/




More information about the Pkg-perl-cvs-commits mailing list