Re^5: Net::SSH2 exec timeout

it looks like $ssh is coming in undefined,

That doesn't happen with normal blessed objects:

#! perl -slw
use strict;
use threads;

package Test;

sub new{ bless [], $_[0] }
sub exec{ print 'exec method called from thread: ', threads->tid }

package main;

my $o = Test->new;
$o->exec;

async{
    $o->exec;
}->detach;

sleep 1;

$o->exec;

__END__
c:\test>tobj
exec method called from thread: 0
exec method called from thread: 1
exec method called from thread: 0
[download]

Which probably means that there is some misbegotten code in Net::SSH2 that is attempting to make it "thread-safe".

The next thing to try is creating the ssh object inside the thread:

use threads;
use Net::SSH2;

async {
    my $ssh = Net::SSH2->new( ... );
    $ssh->scp_put($firmware[$antenna_type],'/tmp/fwupdate.bin');
    print "Upgrading firmware, this will take about 3 minutes.\n";
    my $chan = $ssh->channel();
    $chan->exec("/sbin/fwupdate -m\n");
    $chan->close;
}->detach;

...
[download]

Again, that ought to work, but I have no way to test this speculation!

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^5: Net::SSH2 exec timeout Select or Download Code

Replies are listed 'Best First'.
Re^6: Net::SSH2 exec timeout by Łokě (Scribe) on Sep 09, 2011 at 01:16 UTC
Yeah, does seem like that. Trying to redefine `$ssh` inside the thread yeilds: `Attempt to free non-existent shared string 'GEN0', Perl interpreter: 0 +x8990e48 at Configuration.pl line 41, <> line 3. Segmentation fault` [download] If I try to completely make up a whole new connection like so: `async { my $ssh2 = Net::SSH2->new(); $ssh2->connect($host); $ssh2->auth_password($user,$password); print "Upgrading firmware, this will take about 3 minutes. +\n"; my $chan2 = $ssh2->channel(); $chan2->exec("/sbin/fwupdate -m\n"); $chan2->close; }->detach;` [download] I get this error: `Attempt to free non-existent shared string 'GEN0', Perl interpreter: 0 +x83f4e98, <> line 3. Unbalanced string table refcount: (1) for "GEN0" during global destruc +tion. Unbalanced string table refcount: (1) for "/usr/share/perl/5.12/Symbol +.pm" during global destruction. Scalars leaked: -6` [download] This error is not fatal though but it apparently does not pass beyond this and my script hangs.	[reply] [d/l] [select]
Re^7: Net::SSH2 exec timeout by BrowserUk (Patriarch) on Sep 09, 2011 at 01:21 UTC
It looks like forking or shelling out are your best options. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]
Re^8: Net::SSH2 exec timeout by Łokě (Scribe) on Sep 09, 2011 at 01:32 UTC
fork /yes, I know it's an old joke.	[reply]