From 75678eafed6d7d2d48922ab7f2deb6de8b3c374c Mon Sep 17 00:00:00 2001
From: Jed Reynolds <jreynolds@candelatech.com>
Date: Wed, 27 Mar 2019 15:35:38 -0700
Subject: [PATCH] Utils.pm: Adds diagnostic output when encountering
 blank/undef argument

---
 LANforge/Utils.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/LANforge/Utils.pm b/LANforge/Utils.pm
index 63750661..950232cc 100644
--- a/LANforge/Utils.pm
+++ b/LANforge/Utils.pm
@@ -321,9 +321,12 @@ sub fmt_cmd {
    my $rv;
    my $mod_hunk;
    my $show_err = 0;
+   my $item = 1;
+   my $prev_item;
    for my $hunk (@_) {
       if (defined $hunk && $hunk eq '') {
-         print STDERR "\nfmt_cmd() found blank argument. Converting to NA\n";
+         print STDERR "\nfmt_cmd() arg $item blank, converting to NA\n";
+         print STDERR "            prev argument was [$prev_item]\n" if (defined $prev_item);
          $show_err = 1;
       }
       die("rv[${rv}]\n --> fmt_cmd passed an array, bye.")  if (ref($hunk) eq 'ARRAY');
@@ -337,6 +340,8 @@ sub fmt_cmd {
          #print "hunk[".$hunk."]\n";
          #print "fmt_cmd: warning: hunk was blank, now NA. Prev hunks: $rv\n"
       }
+      $prev_item = $hunk;
+      $item++;
       $rv .= ( $mod_hunk =~m/ +/) ? "'$mod_hunk' " : "$mod_hunk ";
    }
    chomp $rv;