Hello community, here is the log from the commit of package perl-IO-Socket-SSL for openSUSE:Factory checked in at 2011-12-27 18:14:15 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-IO-Socket-SSL (Old) and /work/SRC/openSUSE:Factory/.perl-IO-Socket-SSL.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-Socket-SSL", Maintainer is "[email protected]" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-IO-Socket-SSL/perl-IO-Socket-SSL.changes 2011-12-08 14:46:25.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-IO-Socket-SSL.new/perl-IO-Socket-SSL.changes 2011-12-27 18:14:16.000000000 +0100 @@ -1,0 +2,6 @@ +Sun Dec 11 23:27:04 UTC 2011 - [email protected] + +- update to 1.53: + * kill child in t/memleak_bad_hanshake.t if test fails RT#73146 + +------------------------------------------------------------------- Old: ---- IO-Socket-SSL-1.52.tar.gz New: ---- IO-Socket-SSL-1.53.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Socket-SSL.spec ++++++ --- /var/tmp/diff_new_pack.jF1mhS/_old 2011-12-27 18:14:17.000000000 +0100 +++ /var/tmp/diff_new_pack.jF1mhS/_new 2011-12-27 18:14:17.000000000 +0100 @@ -16,8 +16,9 @@ # + Name: perl-IO-Socket-SSL -Version: 1.52 +Version: 1.53 Release: 0 %define cpan_name IO-Socket-SSL Summary: Nearly transparent SSL encapsulation for IO::Socket::INET ++++++ IO-Socket-SSL-1.52.tar.gz -> IO-Socket-SSL-1.53.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.52/Changes new/IO-Socket-SSL-1.53/Changes --- old/IO-Socket-SSL-1.52/Changes 2011-12-07 09:10:23.000000000 +0100 +++ new/IO-Socket-SSL-1.53/Changes 2011-12-11 22:32:53.000000000 +0100 @@ -1,3 +1,7 @@ +v1.53 2011.12.11 +- kill child in t/memleak_bad_hanshake.t if test fails + https://rt.cpan.org/Ticket/Display.html?id=73146 + Thanks to CLEACH ofr reporting v1.52 2011.12.07 - fix syntax error in t/memleak_bad_handshake.t thanks to cazzaniga[DOT]sandro[AT]gmail[DOT]com for reporting diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.52/META.yml new/IO-Socket-SSL-1.53/META.yml --- old/IO-Socket-SSL-1.52/META.yml 2011-12-07 09:11:17.000000000 +0100 +++ new/IO-Socket-SSL-1.53/META.yml 2011-12-11 22:43:48.000000000 +0100 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: IO-Socket-SSL -version: 1.52 +version: 1.53 abstract: Nearly transparent SSL encapsulation for IO::Socket::INET. author: - Steffen Ullrich & Peter Behroozi & Marko Asplund diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Socket-SSL-1.52/SSL.pm new/IO-Socket-SSL-1.53/SSL.pm --- old/IO-Socket-SSL-1.52/SSL.pm 2011-12-07 09:09:08.000000000 +0100 +++ new/IO-Socket-SSL-1.53/SSL.pm 2011-12-11 22:33:00.000000000 +0100 @@ -78,7 +78,7 @@ }) { @ISA = qw(IO::Socket::INET); } - $VERSION = '1.52'; + $VERSION = '1.53'; $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.52/t/memleak_bad_handshake.t new/IO-Socket-SSL-1.53/t/memleak_bad_handshake.t --- old/IO-Socket-SSL-1.52/t/memleak_bad_handshake.t 2011-12-07 09:08:53.000000000 +0100 +++ new/IO-Socket-SSL-1.53/t/memleak_bad_handshake.t 2011-12-11 22:42:22.000000000 +0100 @@ -39,7 +39,7 @@ defined( my $pid = fork()) or do { print "1..0 # Skipped: fork failed\n"; - exit; + goto done; }; if ( $pid == 0 ) { @@ -48,9 +48,10 @@ # socket accept, client handshake and client close $server->accept; } - exit + goto done; } + close($server); # plain non-SSL connect and close w/o sending data for(1..100) { @@ -59,7 +60,7 @@ my $size100 = getsize($pid); if ( ! $size100 ) { print "1..0 # Skipped: cannot get size of child process\n"; - exit + goto done; } for(100..200) { @@ -73,13 +74,14 @@ my $size300 = getsize($pid); if ($size100>$size200 or $size200<$size300) {; print "1..0 # skipped - do we measure the right thing?\n"; - exit; + goto done; } print "1..1\n"; print "not " if $size100 < $size200 and $size200 < $size300; print "ok # check memleak failed handshake ($size100,$size200,$size300)\n"; +done: kill(9,$pid); wait; exit; -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
