Select Code to Download

my $ssh2 = get_tiny_ssh2();

my $block1 = 0;
...
#shell use
my $chan2 = $ssh2->channel();
$chan2->blocking($block2); #line 21

Calling Net::SSH2::Channel::readline in non-blocking mode is usually a
+ programming error at ./5.ssh2_1.pl line 16.
Can't call method "blocking" on an undefined value at ./5.ssh2_1.pl li
+ne 21.
$

Can't call method "error" on an undefined value at /usr/local/share/pe
+rl/5.26.1/Net/SFTP/Foreign/Backend/Net_SSH2.pm line 43.
$ cat 5.ssh2_1.pl 
...
...
$chan3->exec('pwd');
while (<$chan>) { print }
$chan3->close;

drwxr-xr-x   2 u61210220 ftpusers      61 Jun  9  2011 zen
libssh2_channel_open_ex(ss->session, mandatory_type, strlen(mandatory_
+type), window_size, packet_size, ((void *)0) , 0 ) -> 0x0
Can't call method "blocking" on an undefined value at ./6.ssh2_1.pl li
+ne 23.
Net::SSH2::Channel::DESTROY
Net::SSH2::DESTROY object 0xbd630ac0
$

Net::SSH2::Channel::read(size = 4, ext = 0)
- read 4 bytes
...
Net::SSH2::Channel::DESTROY
Net::SSH2::Channel::DESTROY
Net::SSH2::DESTROY object 0xc71e2800

my $block1 = 1;
my $block2 = 1;
my $block3 = 1;
...
$block1 = 0;
$chan->blocking($block1);
$chan->close;