Added value declaration to perl script. Ticket #4267

This commit is contained in:
Arturo Gonzalez 2016-12-12 12:02:26 +01:00
parent 193c1fa107
commit 1b166f9701
1 changed files with 3 additions and 1 deletions

View File

@ -95,6 +95,9 @@ my %SWITCH_TO_SWITCH;
# MAC addresses. # MAC addresses.
my %MAC; my %MAC;
# Parent-child relationships (in Pandora).
my %PARENTS;
# SNMP query cache. # SNMP query cache.
my %SNMP_CACHE; my %SNMP_CACHE;
@ -1323,4 +1326,3 @@ foreach my $device (values(%VISITED_DEVICES)) {
# Do not delete unused connections unless at least one connection has been found # Do not delete unused connections unless at least one connection has been found
# (prevents the script from deleting connections if there has been a network outage). # (prevents the script from deleting connections if there has been a network outage).
delete_unused_connections(\%CONF, $DBH, $TASK_ID,\%CONNECTIONS) if (scalar(keys(%CONNECTIONS)) > 0); delete_unused_connections(\%CONF, $DBH, $TASK_ID,\%CONNECTIONS) if (scalar(keys(%CONNECTIONS)) > 0);