Hello community, here is the log from the commit of package perl-IO-Socket-SSL for openSUSE:Factory checked in at Tue May 17 10:25:32 CEST 2011.
-------- --- perl-IO-Socket-SSL/perl-IO-Socket-SSL.changes 2011-05-10 21:38:19.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-IO-Socket-SSL/perl-IO-Socket-SSL.changes 2011-05-11 13:15:03.000000000 +0200 @@ -1,0 +2,5 @@ +Wed May 11 10:45:47 UTC 2011 - [email protected] + +- update to 1.43: no user-visible changes: fixes in testsuite + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- IO-Socket-SSL-1.42.tar.gz New: ---- IO-Socket-SSL-1.43.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Socket-SSL.spec ++++++ --- /var/tmp/diff_new_pack.vQ0ihF/_old 2011-05-17 10:21:02.000000000 +0200 +++ /var/tmp/diff_new_pack.vQ0ihF/_new 2011-05-17 10:21:02.000000000 +0200 @@ -18,7 +18,7 @@ Name: perl-IO-Socket-SSL -Version: 1.42 +Version: 1.43 Release: 1 License: GPL+ or Artistic %define cpan_name IO-Socket-SSL ++++++ IO-Socket-SSL-1.42.tar.gz -> IO-Socket-SSL-1.43.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.42/Changes new/IO-Socket-SSL-1.43/Changes --- old/IO-Socket-SSL-1.42/Changes 2011-05-10 16:11:14.000000000 +0200 +++ new/IO-Socket-SSL-1.43/Changes 2011-05-11 10:20:58.000000000 +0200 @@ -1,4 +1,7 @@ +v1.43 2011.05.11 +- fix t/nonblock.t +- stability improvements t/inet6.t v1.42 2011.05.10 - add SSL_create_ctx_callback to have a way to adjust context on creation. https://rt.cpan.org/Ticket/Display.html?id=67799 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.42/META.yml new/IO-Socket-SSL-1.43/META.yml --- old/IO-Socket-SSL-1.42/META.yml 2011-05-10 16:15:15.000000000 +0200 +++ new/IO-Socket-SSL-1.43/META.yml 2011-05-11 10:22:29.000000000 +0200 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: IO-Socket-SSL -version: 1.42 +version: 1.43 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.55_02 +generated_by: ExtUtils::MakeMaker version 6.54 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.42/SSL.pm new/IO-Socket-SSL-1.43/SSL.pm --- old/IO-Socket-SSL-1.42/SSL.pm 2011-05-10 15:58:41.000000000 +0200 +++ new/IO-Socket-SSL-1.43/SSL.pm 2011-05-11 09:58:12.000000000 +0200 @@ -78,7 +78,7 @@ }) { @ISA = qw(IO::Socket::INET); } - $VERSION = '1.42'; + $VERSION = '1.43'; $GLOBAL_CONTEXT_ARGS = {}; #Make $DEBUG another name for $Net::SSLeay::trace diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.42/t/inet6.t new/IO-Socket-SSL-1.43/t/inet6.t --- old/IO-Socket-SSL-1.42/t/inet6.t 2009-01-22 22:44:47.000000000 +0100 +++ new/IO-Socket-SSL-1.43/t/inet6.t 2011-05-11 10:20:32.000000000 +0200 @@ -43,7 +43,6 @@ my $server = IO::Socket::SSL->new( LocalAddr => $addr, Listen => 2, - ReuseAddr => 1, SSL_cert_file => "certs/server-cert.pem", SSL_key_file => "certs/server-key.pem", ) || do { @@ -53,7 +52,8 @@ ok("Server Initialization at $addr"); # add server port to addr -$addr.= ':'.$server->sockport; +$addr = "[$addr]:".$server->sockport; +print "# server at $addr\n"; my $pid = fork(); if ( !defined $pid ) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.42/t/nonblock.t new/IO-Socket-SSL-1.43/t/nonblock.t --- old/IO-Socket-SSL-1.42/t/nonblock.t 2011-05-10 15:47:57.000000000 +0200 +++ new/IO-Socket-SSL-1.43/t/nonblock.t 2011-05-11 09:56:38.000000000 +0200 @@ -36,14 +36,7 @@ # create Server socket before forking client, so that it is # guaranteed to be listening ################################################################# -my %extra_options = $Net::SSLeay::VERSION>=1.16 ? - ( - SSL_key_file => "certs/client-key.enc", - SSL_passwd_cb => sub { return "opossum" } - ) : ( - SSL_key_file => "certs/client-key.pem" - ); -%extra_options = ( %extra_options, +my %tls_options = ( SSL_version => 'TLSv1', SSL_cipher_list => 'HIGH', ); @@ -128,7 +121,8 @@ # upgrade to SSL socket w/o connection yet if ( ! IO::Socket::SSL->start_SSL( $to_server, SSL_startHandshake => 0, - %extra_options + %extra_options, + %tls_options, )) { diag( 'start_SSL return undef' ); print "not "; @@ -253,6 +247,13 @@ ############################################################ # SERVER == parent process ############################################################ + my %extra_options = $Net::SSLeay::VERSION>=1.16 ? + ( + SSL_key_file => "certs/client-key.enc", + SSL_passwd_cb => sub { return "opossum" } + ) : ( + SSL_key_file => "certs/client-key.pem" + ); # pendant to tests in client. Where client is slow (sleep # between plain text sending and connect_SSL) I need to @@ -266,7 +267,7 @@ my $from_client = $server->accept or print "not "; ok( "tcp accept" ); $from_client || do { - diag( "failed to accept: $!" ); + diag( "failed to tcp accept: $!" ); next; }; @@ -292,7 +293,8 @@ SSL_ca_file => "certs/test-ca.pem", SSL_use_cert => 1, SSL_cert_file => "certs/client-cert.pem", - %extra_options + %extra_options, + %tls_options, )) { diag( 'start_SSL return undef' ); print "not "; @@ -316,10 +318,11 @@ } elsif ( $SSL_ERROR == SSL_WANT_WRITE ) { $attempts++; IO::Select->new($from_client)->can_write(30) && next; # retry if can write + } else { + diag( "failed to ssl accept ($test): $@" ); + print "not "; + last; } - diag( "failed to accept: $@" ); - print "not "; - last; } ok( "ssl accept handshake done" ); @@ -334,7 +337,7 @@ IO::Select->new( $from_client )->can_read(30); ( sysread( $from_client, $buf,10 ) == 10 ) || print "not "; - diag($buf); + #diag($buf); ok( "received client message" ); sleep(5); ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
