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

Utils.pm: Adds diagnostic output when encountering blank/undef argument

Browse Source
This commit is contained in:
Jed Reynolds
2019-03-27 15:35:38 -07:00
parent 71d762b74f
commit 75678eafed
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
LANforge/Utils.pm
View File

@@ -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;