From 841b366d2678b41a1a254457f329f9b9e43a367e Mon Sep 17 00:00:00 2001 From: Jed Reynolds Date: Mon, 8 Oct 2018 17:05:24 -0700 Subject: [PATCH] JsonUtils: adds debugging to check on wrong reference --- LANforge/JsonUtils.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/LANforge/JsonUtils.pm b/LANforge/JsonUtils.pm index 28225036..25f58c2a 100644 --- a/LANforge/JsonUtils.pm +++ b/LANforge/JsonUtils.pm @@ -107,8 +107,9 @@ sub flatten_list { my $list_name = shift; my $rh_irefs = {}; return if (!defined $rh_list); - + if (!defined $rh_list->{$list_name}) { + print Dumper($rh_list); warn "flatten_list: $list_name not found"; return; }