1Net::SSH::Perl::Handle(U3s)er Contributed Perl DocumentatNieotn::SSH::Perl::Handle(3)
2
3
4
5sub DESTROY {
6    my $h = shift;
7    unless ($h->{incoming}) {
8        my $c = $h->{channel};
9        my $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    } }
15
16
17
18perl v5.32.1                      2021-01-27         Net::SSH::Perl::Handle(3)
Impressum