r60268 - in /branches/upstream/libnet-ssh2-perl/current: ./ inc/Module/ inc/Module/Install/ lib/Net/
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Tue Jul 13 15:30:26 UTC 2010
Author: carnil-guest
Date: Tue Jul 13 15:30:10 2010
New Revision: 60268
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60268
Log:
[svn-upgrade] new version libnet-ssh2-perl (0.33)
Modified:
branches/upstream/libnet-ssh2-perl/current/Changes
branches/upstream/libnet-ssh2-perl/current/META.yml
branches/upstream/libnet-ssh2-perl/current/SSH2.xs
branches/upstream/libnet-ssh2-perl/current/inc/Module/Install.pm
branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Base.pm
branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Can.pm
branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Fetch.pm
branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Makefile.pm
branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Metadata.pm
branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Win32.pm
branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/WriteAll.pm
branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm
Modified: branches/upstream/libnet-ssh2-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/Changes?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/Changes (original)
+++ branches/upstream/libnet-ssh2-perl/current/Changes Tue Jul 13 15:30:10 2010
@@ -1,4 +1,11 @@
Revision history for Perl extension Net::SSH2.
+
+0.33 2010-07-13 07:59:22
+ - change trace option to use bitmask, so it becomes trace => -1, also
+ added ->trace method
+
+0.32 2010-07-13 07:47:12
+ - add trace => 1 option to ->new (RT#59292)
0.31 2010-06-13 09:35:38
- remove eval $VERSION, was confusing some testers
Modified: branches/upstream/libnet-ssh2-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/META.yml?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/META.yml (original)
+++ branches/upstream/libnet-ssh2-perl/current/META.yml Tue Jul 13 15:30:10 2010
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.99'
+generated_by: 'Module::Install version 1.00'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -21,7 +21,7 @@
provides:
Net::SSH2:
file: lib/Net/SSH2.pm
- version: 0.31
+ version: 0.33
Net::SSH2::Channel:
file: lib/Net/SSH2/Channel.pm
Net::SSH2::Dir:
@@ -39,4 +39,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/rkitover/net-ssh2.git
-version: 0.31
+version: 0.33
Modified: branches/upstream/libnet-ssh2-perl/current/SSH2.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/SSH2.xs?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/SSH2.xs (original)
+++ branches/upstream/libnet-ssh2-perl/current/SSH2.xs Tue Jul 13 15:30:10 2010
@@ -531,7 +531,7 @@
#define class "Net::SSH2"
SSH2*
-net_ss_new(SV*)
+net_ss__new(SV* proto, SV* tracing)
CODE:
Newz(0/*id*/, RETVAL, 1, SSH2);
if (RETVAL) {
@@ -543,10 +543,18 @@
XSRETURN_EMPTY;
}
clear_error(RETVAL);
- /*libssh2_trace(RETVAL->session, -1);*/ /* enable tracing if debug build */
+
+ if (SvTRUE(tracing))
+ libssh2_trace(RETVAL->session, SvIV(tracing));
+
debug("Net::SSH2: created new object 0x%x\n", RETVAL);
OUTPUT:
RETVAL
+
+void
+net_ss_trace(SSH2* ss, SV* bitmask)
+CODE:
+ libssh2_trace(ss->session, SvIV(bitmask));
void
net_ss_blocking(SSH2* ss, SV* blocking)
Modified: branches/upstream/libnet-ssh2-perl/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/inc/Module/Install.pm?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/inc/Module/Install.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/inc/Module/Install.pm Tue Jul 13 15:30:10 2010
@@ -31,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.99';
+ $VERSION = '1.00';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -230,8 +230,12 @@
sub new {
my ($class, %args) = @_;
- delete $INC{'FindBin.pm'};
- require FindBin;
+ delete $INC{'FindBin.pm'};
+ {
+ # to suppress the redefine warning
+ local $SIG{__WARN__} = sub {};
+ require FindBin;
+ }
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
Modified: branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Base.pm?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Base.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Base.pm Tue Jul 13 15:30:10 2010
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
}
# Suspend handler for "redefined" warnings
Modified: branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Can.pm?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Can.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Can.pm Tue Jul 13 15:30:10 2010
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Fetch.pm?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Fetch.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Fetch.pm Tue Jul 13 15:30:10 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Makefile.pm?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Makefile.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Makefile.pm Tue Jul 13 15:30:10 2010
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Metadata.pm?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Metadata.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Metadata.pm Tue Jul 13 15:30:10 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Win32.pm?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Win32.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/Win32.pm Tue Jul 13 15:30:10 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/WriteAll.pm?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/WriteAll.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/inc/Module/Install/WriteAll.pm Tue Jul 13 15:30:10 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.00';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm?rev=60268&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm Tue Jul 13 15:30:10 2010
@@ -188,9 +188,16 @@
our @EXPORT_OK = @{$EXPORT_TAGS{all}};
-our $VERSION = '0.31';
+our $VERSION = '0.33';
# methods
+
+sub new {
+ my $class = shift;
+ my %opts = @_;
+
+ $class->_new($opts{trace} ? 1 : 0);
+}
sub connect {
my $self = shift;
@@ -526,6 +533,10 @@
Create new SSH2 object.
+To turn on tracing with a debug build of libssh2 use:
+
+ my $ssh2 = Net::SSH2->new(trace => -1);
+
=head2 banner ( text )
Set the SSH2 banner text sent to the remote host (prepends required "SSH-2.0-").
@@ -546,6 +557,14 @@
Returns a reference to the underlying L<IO::Socket::INET> object, or C<undef> if
not yet connected.
+
+=head2 trace
+
+Calls libssh2_trace with supplied bitmask, to enable all tracing use:
+
+ $ssh2->trace(-1);
+
+You need a debug build of libssh2 with tracing support.
=head2 method ( type [, values... ] )
More information about the Pkg-perl-cvs-commits
mailing list