Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-IO-Socket-SSL for openSUSE:Factory checked in at 2021-06-01 10:33:30 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-IO-Socket-SSL (Old) and /work/SRC/openSUSE:Factory/.perl-IO-Socket-SSL.new.1898 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-Socket-SSL" Tue Jun 1 10:33:30 2021 rev:88 rq:895920 version:2.071 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-IO-Socket-SSL/perl-IO-Socket-SSL.changes 2021-03-05 13:44:11.491563029 +0100 +++ /work/SRC/openSUSE:Factory/.perl-IO-Socket-SSL.new.1898/perl-IO-Socket-SSL.changes 2021-06-01 10:33:44.356432789 +0200 @@ -1,0 +2,9 @@ +Mon May 24 03:07:25 UTC 2021 - Tina M??ller <[email protected]> + +- updated to 2.071 + see /usr/share/doc/packages/perl-IO-Socket-SSL/Changes + + 2.071 2021/05/23 + - fix t/nonblock.t race on some systems. Fixes issue #102, maybe #98 too. + +------------------------------------------------------------------- Old: ---- IO-Socket-SSL-2.070.tar.gz New: ---- IO-Socket-SSL-2.071.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Socket-SSL.spec ++++++ --- /var/tmp/diff_new_pack.CObyRE/_old 2021-06-01 10:33:44.864433654 +0200 +++ /var/tmp/diff_new_pack.CObyRE/_new 2021-06-01 10:33:44.868433662 +0200 @@ -18,7 +18,7 @@ %define cpan_name IO-Socket-SSL Name: perl-IO-Socket-SSL -Version: 2.070 +Version: 2.071 Release: 0 Summary: Nearly transparent SSL encapsulation for IO::Socket::INET License: Artistic-1.0 OR GPL-1.0-or-later ++++++ IO-Socket-SSL-2.070.tar.gz -> IO-Socket-SSL-2.071.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-2.070/Changes new/IO-Socket-SSL-2.071/Changes --- old/IO-Socket-SSL-2.070/Changes 2021-02-26 09:00:47.000000000 +0100 +++ new/IO-Socket-SSL-2.071/Changes 2021-05-23 10:05:33.000000000 +0200 @@ -1,3 +1,5 @@ +2.071 2021/05/23 +- fix t/nonblock.t race on some systems. Fixes issue #102, maybe #98 too. 2.070 2021/02/26 - changed bugtracker in Makefile.PL to github, away from obsolete rt.cpan.org 2.069 2021/01/22 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-2.070/META.json new/IO-Socket-SSL-2.071/META.json --- old/IO-Socket-SSL-2.070/META.json 2021-02-26 09:01:59.000000000 +0100 +++ new/IO-Socket-SSL-2.071/META.json 2021-05-23 10:11:06.000000000 +0200 @@ -52,6 +52,6 @@ "url" : "https://github.com/noxxi/p5-io-socket-ssl"; } }, - "version" : "2.070", + "version" : "2.071", "x_serialization_backend" : "JSON::PP version 4.02" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-2.070/META.yml new/IO-Socket-SSL-2.071/META.yml --- old/IO-Socket-SSL-2.070/META.yml 2021-02-26 09:01:59.000000000 +0100 +++ new/IO-Socket-SSL-2.071/META.yml 2021-05-23 10:11:06.000000000 +0200 @@ -27,5 +27,5 @@ homepage: https://github.com/noxxi/p5-io-socket-ssl license: http://dev.perl.org/licenses/ repository: https://github.com/noxxi/p5-io-socket-ssl -version: '2.070' +version: '2.071' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-2.070/lib/IO/Socket/SSL.pm new/IO-Socket-SSL-2.071/lib/IO/Socket/SSL.pm --- old/IO-Socket-SSL-2.070/lib/IO/Socket/SSL.pm 2021-02-26 09:00:28.000000000 +0100 +++ new/IO-Socket-SSL-2.071/lib/IO/Socket/SSL.pm 2021-05-23 10:04:33.000000000 +0200 @@ -13,7 +13,7 @@ package IO::Socket::SSL; -our $VERSION = '2.070'; +our $VERSION = '2.071'; use IO::Socket; use Net::SSLeay 1.46; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-2.070/t/nonblock.t new/IO-Socket-SSL-2.071/t/nonblock.t --- old/IO-Socket-SSL-2.070/t/nonblock.t 2020-02-14 15:23:13.000000000 +0100 +++ new/IO-Socket-SSL-2.071/t/nonblock.t 2021-05-22 19:47:07.000000000 +0200 @@ -20,6 +20,8 @@ $|=1; print "1..27\n"; +my $START = time(); + # first create simple non-blocking tcp-server my $ID = 'server'; my $server = IO::Socket::INET->new( @@ -186,12 +188,18 @@ WRITE: for( my $i=0;$i<50000;$i++ ) { my $offset = 0; + my $sel_server = IO::Select->new($to_server); while (1) { - if ( $can && ! IO::Select->new($to_server)->$can(30)) { - diag("fail $can"); - print "not "; + if ($can && !$sel_server->$can(15)) { + if ( $bytes_send > 30000 ) { + diag("fail $can, but limit reached. Assume connection closed"); + } else { + diag("fail $can"); + print "not "; + } last WRITE; - }; + } + my $n = syswrite( $to_server,$msg,length($msg)-$offset,$offset ); if ( !defined($n) ) { diag( "\$!=$! \$SSL_ERROR=$SSL_ERROR send=$bytes_send" ); @@ -256,7 +264,8 @@ foreach my $test ( 'slow','fast' ) { # accept a connection - IO::Select->new( $server )->can_read(30); + my $can_read = IO::Select->new( $server )->can_read(30); + diag("tcp server socket is ".($can_read? "ready" : "NOT ready")); my $from_client = $server->accept or print "not "; ok( "tcp accept" ); $from_client || do { @@ -388,5 +397,14 @@ -sub ok { print "ok # [$ID] @_\n"; } -sub diag { print "# @_\n" } +sub ok { unshift @_, "ok # "; goto &_out } +sub diag { unshift @_, "# "; goto &_out } +sub _out { + my $prefix = shift; + printf "%s [%04d.%s:%03d] %s\n", + $prefix, + time() - $START, + $ID, + (caller())[2], + "@_"; +}
