tread more carefully when loading device_auth and snmp_auth

This commit is contained in:
Oliver Gorwits
2019-03-21 15:03:07 +00:00
parent 456e3502a1
commit d106d4cf22

View File

@@ -34,7 +34,13 @@ config changes over time. Returns a list which can replace C<device_auth>.
=cut
sub fixup_device_auth {
my $config = (setting('device_auth') || setting('snmp_auth'));
my $da = dclone setting('device_auth');
my $sa = dclone setting('snmp_auth');
die "error: both snmp_auth and device_auth are defined! use only device_auth.\n"
if scalar @$da and scalar @$sa;
my $config = ((scalar @$da) ? $da : $sa);
my @new_stanzas = ();
# new style snmp config