Re: Net::SFTP / Net::SSH::W32Perl strange debug messages?


Sisyphus wrote:

<trsaunders@xxxxxxxxx> wrote in message
news:1155481573.474888.261510@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
I'm trying to use Net::SFTP under windows, and have got it working
fine, apart from these very annoying debug(?) messages it keeps
printing to stdout:

IO::Socket::INET at C:/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::Socket::INET at C:/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::Socket::INET at C:/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::Socket::INET at C:/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::String at C:/Perl/site/lib/Net/SSH/Perl/Channel.pm line 118
Connected to SFTP

.
.

I've tried looking through the SFTP & SSH code, but I cannot work out
where on earth these messages are coming from. has anyone got any idea?


Judging by the messages, it looks like they are being generated by the code
at line 295 of SSH2.pm, and by the code at lines 110 and 118 of Channel.pm.

What are those specific lines of code ? (Probably best to give us a few
lines either side, for context.)

------------------------
D:\pscrpt>type try.pl
warn "IO::Socket::INET";
D:\pscrpt>perl try.pl
IO::Socket::INET at try.pl line 1.
-----------------------

Cheers,
Rob
SSH2.pm:

$cmgr->process_output_packets;

my $rb = $select_class->new;
my $wb = $select_class->new;
$rb->add($ssh->sock); ##### line
295 of SSH2.pm
$cmgr->prepare_channels($rb, $wb);

#last unless $cmgr->any_open_channels;
my $oc = grep { defined } @{ $cmgr->{channels} };
last unless $oc > 1;

Channel.pm:

my $c = shift;
my($rb, $wb) = @_;
if ($c->{rfd} && $c->{istate} == CHAN_INPUT_OPEN && ### line
110
$c->{remote_window} > 0 &&
$c->{input}->length < $c->{remote_window}) {
$rb->add($c->{rfd});
}
if ($c->{wfd} &&
$c->{ostate} == CHAN_OUTPUT_OPEN ||
$c->{ostate} == CHAN_OUTPUT_WAIT_DRAIN) {
if ($c->{output}->length > 0) {
#### line 118
$wb->add($c->{wfd});
}
elsif ($c->{ostate} == CHAN_OUTPUT_WAIT_DRAIN &&
$c->{extended}->length == 0) {
$c->obuf_empty;
}

I can't see anything on those lines which could cause this!

.

Relevant Pages