1Net::SSH::Perl::Handle(U3s)er Contributed Perl DocumentatNieotn::SSH::Perl::Handle(3)
23
4
5
sub DESTROY {
6my $h = shift;
7unless ($h->{incoming}) {
8my $c = $h->{channel};
9my $ssh = $c->{ssh};
10$c->{istate} = CHAN_INPUT_WAIT_DRAIN;
11$c->send_eof;
12$c->{istate} = CHAN_INPUT_CLOSED;
13$ssh->client_loop;
14} }
1516
17
18
perl v5.30.0 2019-07-26 Net::SSH::Perl::Handle(3)