From 6c0816793f39e6de4d417455f1b25c4d5a268683 Mon Sep 17 00:00:00 2001
From: karchnu <karchnu@karchnu.fr>
Date: Wed, 10 Feb 2016 10:14:34 +0100
Subject: [PATCH] close ssh connections

---
 lib/copycat.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/copycat.pm b/lib/copycat.pm
index 23c4f13..ae81fc6 100644
--- a/lib/copycat.pm
+++ b/lib/copycat.pm
@@ -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