close ssh connections
parent
8795600a3c
commit
6c0816793f
|
@ -24,6 +24,7 @@ sub _scp_put {
|
||||||
my $ssh = Net::OpenSSH->new($co);
|
my $ssh = Net::OpenSSH->new($co);
|
||||||
say "scp put $src $dest";
|
say "scp put $src $dest";
|
||||||
$ssh->scp_put($src, $dest) or die "scp failed: " . $ssh->error;
|
$ssh->scp_put($src, $dest) or die "scp failed: " . $ssh->error;
|
||||||
|
undef $ssh;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub _scp_get {
|
sub _scp_get {
|
||||||
|
@ -32,6 +33,7 @@ sub _scp_get {
|
||||||
my $ssh = Net::OpenSSH->new($co);
|
my $ssh = Net::OpenSSH->new($co);
|
||||||
say "scp get $src $dest";
|
say "scp get $src $dest";
|
||||||
$ssh->scp_get($src, $dest) or die "scp failed: " . $ssh->error;
|
$ssh->scp_get($src, $dest) or die "scp failed: " . $ssh->error;
|
||||||
|
undef $ssh;
|
||||||
}
|
}
|
||||||
|
|
||||||
# SUPPORT
|
# SUPPORT
|
||||||
|
|
Reference in New Issue