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