Data values of zero are now sent to munge method instead of skipped
This commit is contained in:
@@ -35,6 +35,7 @@ version 3.09 ()
|
|||||||
* Don't assume entity index 1 is the chassis and has serial in Layer3
|
* Don't assume entity index 1 is the chassis and has serial in Layer3
|
||||||
* Capture serial number on newer Aruba devices
|
* Capture serial number on newer Aruba devices
|
||||||
* munge_bits() correctly unpacks BITS
|
* munge_bits() correctly unpacks BITS
|
||||||
|
* Data values of zero are now sent to munge method instead of skipped
|
||||||
|
|
||||||
version 3.08 (2013-10-22)
|
version 3.08 (2013-10-22)
|
||||||
|
|
||||||
|
|||||||
2
Info.pm
2
Info.pm
@@ -4267,7 +4267,7 @@ sub _munge {
|
|||||||
my %munged;
|
my %munged;
|
||||||
foreach my $key ( keys %$data ) {
|
foreach my $key ( keys %$data ) {
|
||||||
my $value = $data->{$key};
|
my $value = $data->{$key};
|
||||||
next unless $value;
|
next unless defined $value;
|
||||||
$munged{$key} = $subref->($value);
|
$munged{$key} = $subref->($value);
|
||||||
}
|
}
|
||||||
return \%munged;
|
return \%munged;
|
||||||
|
|||||||
Reference in New Issue
Block a user