Select Code to Download

sub run_testsuite {
    my $cmd = $_[0];
...
    $chan2->close;
    return 0;
}

 Executing command...
 ==> Running pwd
LINE : /home/sisyphus
test passed done 0

 Executing command...
 ==> Running pwd
...
Net::SSH2::Channel::DESTROY
test passed done 0
Net::SSH2::DESTROY object 0x297d73c

 Executing command...
 ==> Running pwd
...
Net::SSH2::Channel::DESTROY
test passed done 0
Net::SSH2::DESTROY object 0x28dd73c

print $chan2 "$cmd \n";

print $chan2 "$cmd\n";