/ 
Net-SSH-Perl-2.142
River stage two • 11 direct dependents • 12 total dependents
/ Net::SSH::Perl::Handle

sub DESTROY { my $h = shift; unless ($h->{incoming}) { my $c = $h->{channel}; my $ssh = $c->{ssh}; $c->{istate} = CHAN_INPUT_WAIT_DRAIN; $c->send_eof; $c->{istate} = CHAN_INPUT_CLOSED; $ssh->client_loop; } }