Baguette
/
dnsmanagerv1
3
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

close ssh connections

master
karchnu 2016-02-10 10:14:34 +01:00
parent 8795600a3c
commit 6c0816793f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/copycat.pm
View File

@ -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