From ad2dd72b1350478f4f08fa2f4047571079fda08e Mon Sep 17 00:00:00 2001
From: Jed Reynolds <jed@candelatech.com>
Date: Fri, 5 Oct 2018 13:38:47 -0700
Subject: [PATCH] Json: fixes flatten_list() when passed an empty set

---
 LANforge/JsonUtils.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/LANforge/JsonUtils.pm b/LANforge/JsonUtils.pm
index 9317cbf8..28225036 100644
--- a/LANforge/JsonUtils.pm
+++ b/LANforge/JsonUtils.pm
@@ -106,6 +106,22 @@ sub flatten_list {
    my $rh_list = shift;
    my $list_name = shift;
    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++) {
       my @k = keys(%{$rh_list->{$list_name}[$i]});
       #print Dumper(\@k);