Hello community, here is the log from the commit of package perl-Net-SSH2 for openSUSE:Factory checked in at 2016-10-20 23:10:01 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Net-SSH2 (Old) and /work/SRC/openSUSE:Factory/.perl-Net-SSH2.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-SSH2" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Net-SSH2/perl-Net-SSH2.changes 2016-06-19 10:48:11.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Net-SSH2.new/perl-Net-SSH2.changes 2016-10-20 23:10:39.000000000 +0200 @@ -1,0 +2,12 @@ +Fri Oct 14 05:59:55 UTC 2016 - [email protected] + +- updated to 0.63 + see /usr/share/doc/packages/perl-Net-SSH2/Changes + + 0.63 + - die_with_error errors pointed to that method instead of its + caller. + - Fix case in user message. + - Silence warning in perl 5.10. + +------------------------------------------------------------------- Old: ---- Net-SSH2-0.62.tar.gz New: ---- Net-SSH2-0.63.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Net-SSH2.spec ++++++ --- /var/tmp/diff_new_pack.IDSwxz/_old 2016-10-20 23:10:40.000000000 +0200 +++ /var/tmp/diff_new_pack.IDSwxz/_new 2016-10-20 23:10:40.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Net-SSH2 -Version: 0.62 +Version: 0.63 Release: 0 %define cpan_name Net-SSH2 Summary: Support for the SSH 2 protocol via libssh2 ++++++ Net-SSH2-0.62.tar.gz -> Net-SSH2-0.63.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSH2-0.62/Changes new/Net-SSH2-0.63/Changes --- old/Net-SSH2-0.62/Changes 2016-06-07 14:20:58.000000000 +0200 +++ new/Net-SSH2-0.63/Changes 2016-10-13 09:35:31.000000000 +0200 @@ -1,5 +1,11 @@ Revision history for Perl extension Net::SSH2. +0.63 + - die_with_error errors pointed to that method instead of its + caller. + - Fix case in user message. + - Silence warning in perl 5.10. + 0.62 2016-06-07 - Code handling the conversion of arguments accepting both integers and constant names was broken for undef. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSH2-0.62/META.yml new/Net-SSH2-0.63/META.yml --- old/Net-SSH2-0.62/META.yml 2016-06-07 16:14:41.000000000 +0200 +++ new/Net-SSH2-0.63/META.yml 2016-10-13 09:43:07.000000000 +0200 @@ -22,7 +22,7 @@ provides: Net::SSH2: file: lib/Net/SSH2.pm - version: '0.62' + version: '0.63' Net::SSH2::Channel: file: lib/Net/SSH2/Channel.pm Net::SSH2::Dir: @@ -42,4 +42,4 @@ resources: license: http://dev.perl.org/licenses/ repository: git://github.com/rkitover/net-ssh2.git -version: '0.62' +version: '0.63' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSH2-0.62/lib/Net/SSH2/SFTP.pm new/Net-SSH2-0.63/lib/Net/SSH2/SFTP.pm --- old/Net-SSH2-0.62/lib/Net/SSH2/SFTP.pm 2016-05-03 12:25:40.000000000 +0200 +++ new/Net-SSH2-0.63/lib/Net/SSH2/SFTP.pm 2016-10-13 09:35:56.000000000 +0200 @@ -7,10 +7,10 @@ sub die_with_error { my $self = shift; if (my ($code, $name) = $self->error) { - die join(": ", @_, "SFTP error $code $name"); + croak join(": ", @_, "SFTP error $code $name"); } else { - die join(": ", @_, "no SFTP error registered"); + croak join(": ", @_, "no SFTP error registered"); } } @@ -42,7 +42,7 @@ Open or create a file on the remote host. The flags are the standard O_RDONLY, O_WRONLY, O_RDWR, O_APPEND, O_CREAT, O_TRUNC, and O_EXCL, which may be combined as usual. Flags default to O_RDONLY and mode to 0666 (create only). -Returns a Net::SSH2::File object on success. +Returns a L<Net::SSH2::File> object on success. =head2 opendir ( dir ) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSH2-0.62/lib/Net/SSH2.pm new/Net-SSH2-0.63/lib/Net/SSH2.pm --- old/Net-SSH2-0.62/lib/Net/SSH2.pm 2016-06-07 14:21:15.000000000 +0200 +++ new/Net-SSH2-0.63/lib/Net/SSH2.pm 2016-10-13 09:36:09.000000000 +0200 @@ -1,6 +1,6 @@ package Net::SSH2; -our $VERSION = '0.62'; +our $VERSION = '0.63'; use 5.006; use strict; @@ -48,10 +48,10 @@ sub die_with_error { my $self = shift; if (my ($code, $name, $string) = $self->error) { - die join(": ", @_, "$string ($code $name)"); + croak join(": ", @_, "$string ($code $name)"); } else { - die join(": ", @_, "no libssh2 error registered"); + croak join(": ", @_, "no libssh2 error registered"); } } @@ -83,7 +83,7 @@ } } - my %opts = splice @_, 2; + my %opts = (@_ > 2 ? splice(@_, 2) : ()); if (%opts) { $connect_opts_warned++ or warnings::warnif($self, "Passing options to connect is deprecated"); @@ -136,9 +136,9 @@ { local ($@, $SIG{__DIE__}); - $port = eval { $sock->peerport } + $port = eval { $sock->peerport } || 22 unless defined $port; - $hostname = eval { $sock->peername } || 22 + $hostname = eval { $sock->peername } unless defined $hostname; } @@ -403,7 +403,7 @@ if ($policy == LIBSSH2_HOSTKEY_POLICY_ASK()) { my $fp = unpack 'H*', $self->hostkey_hash(LIBSSH2_HOSTKEY_HASH_SHA1()); my $yes = $self->_ask_user("The authenticity of host '$hostname' can't be established.\n" . - "key fingerprint is SHA1:$fp.\n" . + "Key fingerprint is SHA1:$fp.\n" . "Are you sure you want to continue connecting (yes/no)? ", 1); unless ($yes =~ /^y(es)?$/i) { $self->_set_error(LIBSSH2_ERROR_KNOWN_HOSTS(), 'Host key verification failed: user did not accept the key');
