close ssh connections

master
karchnu 8 years ago
parent 8795600a3c
commit 6c0816793f

@ -24,6 +24,7 @@ sub _scp_put {
my $ssh = Net::OpenSSH->new($co);
say "scp put $src $dest";
$ssh->scp_put($src, $dest) or die "scp failed: " . $ssh->error;
undef $ssh;
}
sub _scp_get {
@ -32,6 +33,7 @@ sub _scp_get {
my $ssh = Net::OpenSSH->new($co);
say "scp get $src $dest";
$ssh->scp_get($src, $dest) or die "scp failed: " . $ssh->error;
undef $ssh;
}
# SUPPORT

Loading…
Cancel
Save