scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-31 02:38:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Json: fixes flatten_list() when passed an empty set

Browse Source
This commit is contained in:
Jed Reynolds
2018-10-05 13:38:47 -07:00
parent 39e42a647f
commit ad2dd72b13
1 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
LANforge/JsonUtils.pm
View File

@@ -106,6 +106,22 @@ sub flatten_list {
my $rh_list = shift; my $rh_list = shift;
my $list_name = shift; my $list_name = shift;
my $rh_irefs = {}; my $rh_irefs = {};
return if (!defined $rh_list);
if (!defined $rh_list->{$list_name}) {
warn "flatten_list: $list_name not found";
return;
}
if (ref $rh_list->{$list_name} eq "HASH") {
return if ( (keys %{$rh_list->{$list_name}} < 1));
}
if (ref $rh_list->{$list_name} ne "ARRAY") {
print "flatten_list: $list_name not Array Ref:\n";
print "-------------------------------------------------\n";
print Dumper($rh_list);
print "-------------------------------------------------\n";
return;
}
for (my $i=0; $i < @{$rh_list->{$list_name}}; $i++) { for (my $i=0; $i < @{$rh_list->{$list_name}}; $i++) {
my @k = keys(%{$rh_list->{$list_name}[$i]}); my @k = keys(%{$rh_list->{$list_name}[$i]});
#print Dumper(\@k); #print Dumper(\@k);