r74924 - in /trunk/libio-socket-ssl-perl: Changes META.yml SSL.pm debian/changelog debian/control t/nonblock.t
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Sat May 28 11:49:54 UTC 2011
Author: ghedo-guest
Date: Sat May 28 11:49:47 2011
New Revision: 74924
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74924
Log:
* New upstream release
* Add myself to Uploaders
Modified:
trunk/libio-socket-ssl-perl/Changes
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
trunk/libio-socket-ssl-perl/t/nonblock.t
Modified: trunk/libio-socket-ssl-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/Changes?rev=74924&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/Changes (original)
+++ trunk/libio-socket-ssl-perl/Changes Sat May 28 11:49:47 2011
@@ -1,4 +1,10 @@
+v1.44 2011.05.27
+- fix invalid call to inet_pton in verify_hostname_of_cert when
+ identity should be verified as ipv6 address, because it contains
+ colon.
+v1.43_1 2011.05.12
+- try to make t/nonblock.t more stable, especially on Mac OS X
v1.43 2011.05.11
- fix t/nonblock.t
- stability improvements t/inet6.t
Modified: trunk/libio-socket-ssl-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/META.yml?rev=74924&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/META.yml (original)
+++ trunk/libio-socket-ssl-perl/META.yml Sat May 28 11:49:47 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: IO-Socket-SSL
-version: 1.43
+version: 1.44
abstract: Nearly transparent SSL encapsulation for IO::Socket::INET.
author:
- Steffen Ullrich & Peter Behroozi & Marko Asplund
@@ -17,7 +17,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.54
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: trunk/libio-socket-ssl-perl/SSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/SSL.pm?rev=74924&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/SSL.pm (original)
+++ trunk/libio-socket-ssl-perl/SSL.pm Sat May 28 11:49:47 2011
@@ -78,7 +78,7 @@
}) {
@ISA = qw(IO::Socket::INET);
}
- $VERSION = '1.43';
+ $VERSION = '1.44';
$GLOBAL_CONTEXT_ARGS = {};
#Make $DEBUG another name for $Net::SSLeay::trace
@@ -1104,7 +1104,8 @@
# make sure that Socket6 was loaded properly
UNIVERSAL::can( __PACKAGE__, 'inet_pton' ) or croak
q[Looks like IPv6 address, make sure that Socket6 is loaded or make "use IO::Socket::SSL 'inet6'];
- $ipn = inet_pton( $identity ) or croak "'$identity' is not IPv6, but neither IPv4 nor hostname";
+ $ipn = inet_pton(AF_INET6,$identity)
+ or croak "'$identity' is not IPv6, but neither IPv4 nor hostname";
} elsif ( $identity =~m{^\d+\.\d+\.\d+\.\d+$} ) {
# definitly no hostname, try IPv4
$ipn = inet_aton( $identity ) or croak "'$identity' is not IPv4, but neither IPv6 nor hostname";
Modified: trunk/libio-socket-ssl-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/debian/changelog?rev=74924&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/debian/changelog (original)
+++ trunk/libio-socket-ssl-perl/debian/changelog Sat May 28 11:49:47 2011
@@ -1,3 +1,10 @@
+libio-socket-ssl-perl (1.44-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Add myself to Uploaders
+
+ -- Alessandro Ghedini <al3xbio at gmail.com> Sat, 28 May 2011 13:45:16 +0200
+
libio-socket-ssl-perl (1.43-1) unstable; urgency=low
* New upstream release
@@ -100,10 +107,10 @@
* debian/watch: Update to ignore development releases.
[ Salvatore Bonaccorso ]
- * New upstream release
- * Bump Standards-Version to 3.8.2 (no changes)
- * Simplify debian/rules by using a tiny rules file.
- * Update Copyright information for debian/* packaging.
+ * New upstream release
+ * Bump Standards-Version to 3.8.2 (no changes)
+ * Simplify debian/rules by using a tiny rules file.
+ * Update Copyright information for debian/* packaging.
-- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Fri, 03 Jul 2009 11:03:17 +0200
@@ -329,7 +336,7 @@
libnet-socketssl-perl (0.77-2) unstable; urgency=low
- * Updated debian/rules because of perl 5.6 and new perl policy.
+ * Updated debian/rules because of perl 5.6 and new perl policy.
-- Davide Puricelli (evo) <evo at debian.org> Thu, 15 Feb 2001 22:24:51 +0100
Modified: trunk/libio-socket-ssl-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/debian/control?rev=74924&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/debian/control (original)
+++ trunk/libio-socket-ssl-perl/debian/control Sat May 28 11:49:47 2011
@@ -13,7 +13,8 @@
Rene Mayorga <rmayorga at debian.org>,
Antonio Radici <antonio at dyne.org>,
Salvatore Bonaccorso <carnil at debian.org>,
- Angel Abad <angelabad at gmail.com>
+ Angel Abad <angelabad at gmail.com>,
+ Alessandro Ghedini <al3xbio at gmail.com>
Standards-Version: 3.9.2
Homepage: http://search.cpan.org/dist/IO-Socket-SSL/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libio-socket-ssl-perl/
Modified: trunk/libio-socket-ssl-perl/t/nonblock.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/t/nonblock.t?rev=74924&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/t/nonblock.t (original)
+++ trunk/libio-socket-ssl-perl/t/nonblock.t Sat May 28 11:49:47 2011
@@ -91,11 +91,21 @@
# nonblocking connect of tcp socket
while (1) {
- $to_server->connect( $server_addr ) && last;
- if ( $! == EINPROGRESS ) {
+ connect($to_server,$server_addr ) && last;
+ if ( $!{EINPROGRESS} ) {
diag( 'connect in progress' );
- IO::Select->new( $to_server )->can_read(30) && next;
+ IO::Select->new( $to_server )->can_write(30) && next;
print "not ";
+ last;
+ } elsif ( $!{EALREADY} ) {
+ diag( 'connect not yet completed');
+ # just wait
+ select(undef,undef,undef,0.1);
+ next;
+ } elsif ( $!{EISCONN} ) {
+ diag('claims that socket is already connected');
+ # found on Mac OS X, dunno why it does not tell me that
+ # the connect succeeded before
last;
}
diag( 'connect failed: '.$! );
@@ -111,7 +121,27 @@
$to_server->blocking(0);
# send some plain text on non-ssl socket
- syswrite( $to_server,'plaintext' ) || print "not ";
+ my $pmsg = 'plaintext';
+ while ( $pmsg ne '' ) {
+ my $w = syswrite( $to_server,$pmsg );
+ if ( ! defined $w ) {
+ if ( ! $!{EAGAIN} ) {
+ diag("syswrite failed with $!");
+ print "not ";
+ last;
+ }
+ IO::Select->new($to_server)->can_write(30) or do {
+ diag("failed to get write ready");
+ print "not ";
+ last;
+ };
+ } elsif ( $w>0 ) {
+ diag("wrote $w bytes");
+ substr($pmsg,0,$w,'');
+ } else {
+ die "syswrite returned 0";
+ }
+ }
ok( "write plain text" );
# let server catch up, so that it awaits my connection
More information about the Pkg-perl-cvs-commits
mailing list