Hello community, here is the log from the commit of package perl-Net-SSLGlue for openSUSE:Factory checked in at 2016-04-12 19:35:14 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Net-SSLGlue (Old) and /work/SRC/openSUSE:Factory/.perl-Net-SSLGlue.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-SSLGlue" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Net-SSLGlue/perl-Net-SSLGlue.changes 2015-11-08 11:27:16.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Net-SSLGlue.new/perl-Net-SSLGlue.changes 2016-04-12 19:35:16.000000000 +0200 @@ -1,0 +2,16 @@ +Thu Apr 7 09:45:56 UTC 2016 - co...@suse.com + +- updated to 1.057 + see /usr/share/doc/packages/perl-Net-SSLGlue/Changes + + 1.057 2016/04/04 + - removed warning with very old versions of LWP where + LWP::Protocol::https::VERSION was not defined yet. + Thanks to denis[AT]fateyev[DOT]com for reporting + + 1.056 2015/10/31 + - fix another memory leak which happened on data connections only + - make sure that context reuse is done properly, see + https://github.com/noxxi/p5-net-sslglue/pull/3 + +------------------------------------------------------------------- Old: ---- Net-SSLGlue-1.055.tar.gz New: ---- Net-SSLGlue-1.057.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Net-SSLGlue.spec ++++++ --- /var/tmp/diff_new_pack.qJ1Cat/_old 2016-04-12 19:35:17.000000000 +0200 +++ /var/tmp/diff_new_pack.qJ1Cat/_new 2016-04-12 19:35:17.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Net-SSLGlue # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-Net-SSLGlue -Version: 1.055 +Version: 1.057 Release: 0 %define cpan_name Net-SSLGlue Summary: Add/Extend Ssl Support for Common Perl Modules ++++++ Net-SSLGlue-1.055.tar.gz -> Net-SSLGlue-1.057.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-1.055/Changes new/Net-SSLGlue-1.057/Changes --- old/Net-SSLGlue-1.055/Changes 2015-10-25 13:40:39.000000000 +0100 +++ new/Net-SSLGlue-1.057/Changes 2016-04-04 09:29:58.000000000 +0200 @@ -1,3 +1,13 @@ +1.057 2016/04/04 +- removed warning with very old versions of LWP where + LWP::Protocol::https::VERSION was not defined yet. + Thanks to denis[AT]fateyev[DOT]com for reporting + +1.056 2015/10/31 +- fix another memory leak which happened on data connections only +- make sure that context reuse is done properly, see + https://github.com/noxxi/p5-net-sslglue/pull/3 + 1.055 2015/10/25 - fix memory leak in Net::SSLGlue::Socket, RT#107816. Thanks to kasyap.mr[AT]gmail[DOT]com for reporting diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-1.055/META.json new/Net-SSLGlue-1.057/META.json --- old/Net-SSLGlue-1.055/META.json 2015-10-25 13:40:58.000000000 +0100 +++ new/Net-SSLGlue-1.057/META.json 2016-04-04 09:36:55.000000000 +0200 @@ -42,5 +42,5 @@ "url" : "https://github.com/noxxi/p5-net-sslglue"; } }, - "version" : "1.055" + "version" : "1.057" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-1.055/META.yml new/Net-SSLGlue-1.057/META.yml --- old/Net-SSLGlue-1.055/META.yml 2015-10-25 13:40:57.000000000 +0100 +++ new/Net-SSLGlue-1.057/META.yml 2016-04-04 09:36:55.000000000 +0200 @@ -21,4 +21,4 @@ IO::Socket::SSL: 1.19 resources: repository: https://github.com/noxxi/p5-net-sslglue -version: 1.055 +version: 1.057 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-1.055/lib/Net/SSLGlue/LWP.pm new/Net-SSLGlue-1.057/lib/Net/SSLGlue/LWP.pm --- old/Net-SSLGlue-1.055/lib/Net/SSLGlue/LWP.pm 2015-04-28 08:23:10.000000000 +0200 +++ new/Net-SSLGlue-1.057/lib/Net/SSLGlue/LWP.pm 2016-04-04 09:28:14.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; package Net::SSLGlue::LWP; -our $VERSION = 0.5; +our $VERSION = 0.501; use LWP::UserAgent '5.822'; use IO::Socket::SSL 1.19; use URI; @@ -11,7 +11,8 @@ my $use_existent; BEGIN { require LWP::Protocol::https; - $use_existent = $LWP::Protocol::https::VERSION >= 6.06 + $use_existent = $LWP::Protocol::https::VERSION + && $LWP::Protocol::https::VERSION >= 6.06 && $LWP::UserAgent::VERSION >= 6.06; if ($use_existent) { my $oc = $Net::HTTPS::SSL_SOCKET_CLASS || diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-1.055/lib/Net/SSLGlue/Socket.pm new/Net-SSLGlue-1.057/lib/Net/SSLGlue/Socket.pm --- old/Net-SSLGlue-1.055/lib/Net/SSLGlue/Socket.pm 2015-10-25 13:36:12.000000000 +0100 +++ new/Net-SSLGlue-1.057/lib/Net/SSLGlue/Socket.pm 2015-10-31 11:44:00.000000000 +0100 @@ -44,6 +44,11 @@ return $self; } +sub DESTROY { + my $self = shift; + %{*$self} = (); +} + for my $sub (qw( fileno sysread syswrite close connect fcntl read write readline print printf getc say eof getline getlines @@ -81,10 +86,16 @@ }; sub start_SSL { - my $self = shift; + my ($self,%args) = @_; croak("start_SSL called on SSL socket") if ${*$self}{ssl}; - IO::Socket::SSL->start_SSL(${*$self}{sock},%{${*$self}{sslargs}},@_) - or return; + + %args = (%{${*$self}{sslargs}},%args); + if (my $ctx = $args{SSL_reuse_ctx}) { + # take the context from the attached socket + $args{SSL_reuse_ctx} = ${*$ctx}{sock} + if $ctx->isa('Net::SSLGlue::Socket'); + } + IO::Socket::SSL->start_SSL(${*$self}{sock},%args) or return; ${*$self}{ssl} = 1; return $self; } @@ -165,7 +176,7 @@ $plain->stop_SSL -=head1 DESCRIPTIONA +=head1 DESCRIPTION First, it is recommended to use L<IO::Socket::SSL> directly instead of this module, since this kind of functionality is available in IO::Socket::SSL since diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-1.055/lib/Net/SSLGlue.pm new/Net-SSLGlue-1.057/lib/Net/SSLGlue.pm --- old/Net-SSLGlue-1.055/lib/Net/SSLGlue.pm 2015-10-25 13:36:40.000000000 +0100 +++ new/Net-SSLGlue-1.057/lib/Net/SSLGlue.pm 2016-04-04 09:28:05.000000000 +0200 @@ -1,5 +1,5 @@ package Net::SSLGlue; -our $VERSION = '1.055'; +our $VERSION = '1.057'; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-1.055/t/external/05_ftp.t new/Net-SSLGlue-1.057/t/external/05_ftp.t --- old/Net-SSLGlue-1.055/t/external/05_ftp.t 2015-04-28 08:49:57.000000000 +0200 +++ new/Net-SSLGlue-1.057/t/external/05_ftp.t 2016-04-04 09:36:37.000000000 +0200 @@ -18,12 +18,16 @@ use IO::Socket::SSL; use File::Temp; -# first try to connect w/o ftp -# plain -diag( "connect inet to $server:21" ); -IO::Socket::INET->new( "$server:21" ) or do { - plan skip_all => "$server:21 not reachable"; -}; +# check if we can connect and log in at all (plain) +diag( "connect ftp w/o ssl to $server" ); +my $ftp; +if ( $ftp = Net::FTP->new($server, Debug => $debug) + and $ftp->login("anonymous",'net-sslglue-...@test.perl')) { + diag( "connect ftp w/o ssl to $server works" ); +} else { + plan skip_all => "no connect/login w/o ssl possible"; +} + # ssl to the right host diag( "connect inet to $server:990" ); @@ -51,7 +55,7 @@ # first direct SSL diag( "connect ftp over ssl to $server" ); -my $ftp = Net::FTP->new($server, +$ftp = Net::FTP->new($server, SSL => 1, %sslargs, Debug => $debug,
