From 9fa40860881030273961471de1df613929064b20 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Mon, 18 Mar 2019 21:26:10 +0000
Subject: [PATCH] do not clobber sshcollector config

---
 lib/App/Netdisco/Util/DeviceAuth.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/App/Netdisco/Util/DeviceAuth.pm b/lib/App/Netdisco/Util/DeviceAuth.pm
index 9c4f4c11..8c68f714 100644
--- a/lib/App/Netdisco/Util/DeviceAuth.pm
+++ b/lib/App/Netdisco/Util/DeviceAuth.pm
@@ -3,6 +3,7 @@ package App::Netdisco::Util::DeviceAuth;
 use Dancer qw/:syntax :script/;
 use App::Netdisco::Util::DNS 'hostname_from_ip';
 
+use Storable 'dclone';
 use Try::Tiny;
 
 use base 'Exporter';
@@ -67,8 +68,8 @@ sub fixup_device_auth {
   }
 
   # import legacy sshcollector configuration
-  my $sshcollector = (setting('sshcollector') || []);
-  foreach my $stanza (@$sshcollector) {
+  my @sshcollector = @{ dclone (setting('sshcollector') || []) };
+  foreach my $stanza (@sshcollector) {
     # defaults
     $stanza->{driver} = 'cli';
     $stanza->{read} = 1;