|
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; } }
Visit the GSP FreeBSD Man Page Interface. |