Hello community, here is the log from the commit of package perl-IO-Socket-SSL for openSUSE:Factory checked in at Mon May 30 16:23:00 CEST 2011.
-------- --- perl-IO-Socket-SSL/perl-IO-Socket-SSL.changes 2011-05-11 13:15:03.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-IO-Socket-SSL/perl-IO-Socket-SSL.changes 2011-05-27 22:11:43.000000000 +0200 @@ -1,0 +2,7 @@ +Fri May 27 20:07:41 UTC 2011 - [email protected] + +- update to 1.44: + * fix invalid call to inet_pton in verify_hostname_of_cert when identity + should be verified as ipv6 address, because it contains colon + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- IO-Socket-SSL-1.43.tar.gz New: ---- IO-Socket-SSL-1.44.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Socket-SSL.spec ++++++ --- /var/tmp/diff_new_pack.fMVQrL/_old 2011-05-30 16:22:40.000000000 +0200 +++ /var/tmp/diff_new_pack.fMVQrL/_new 2011-05-30 16:22:40.000000000 +0200 @@ -18,7 +18,7 @@ Name: perl-IO-Socket-SSL -Version: 1.43 +Version: 1.44 Release: 1 License: GPL+ or Artistic %define cpan_name IO-Socket-SSL ++++++ IO-Socket-SSL-1.43.tar.gz -> IO-Socket-SSL-1.44.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.43/Changes new/IO-Socket-SSL-1.44/Changes --- old/IO-Socket-SSL-1.43/Changes 2011-05-11 10:20:58.000000000 +0200 +++ new/IO-Socket-SSL-1.44/Changes 2011-05-27 13:37:39.000000000 +0200 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.43/META.yml new/IO-Socket-SSL-1.44/META.yml --- old/IO-Socket-SSL-1.43/META.yml 2011-05-11 10:22:29.000000000 +0200 +++ new/IO-Socket-SSL-1.44/META.yml 2011-05-27 13:38:31.000000000 +0200 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.43/SSL.pm new/IO-Socket-SSL-1.44/SSL.pm --- old/IO-Socket-SSL-1.43/SSL.pm 2011-05-11 09:58:12.000000000 +0200 +++ new/IO-Socket-SSL-1.44/SSL.pm 2011-05-27 13:37:46.000000000 +0200 @@ -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"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.43/t/nonblock.t new/IO-Socket-SSL-1.44/t/nonblock.t --- old/IO-Socket-SSL-1.43/t/nonblock.t 2011-05-11 09:56:38.000000000 +0200 +++ new/IO-Socket-SSL-1.44/t/nonblock.t 2011-05-27 13:26:45.000000000 +0200 @@ -91,12 +91,22 @@ # 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: '.$! ); print "not "; @@ -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 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
