Don't try to munge undef values
This commit is contained in:
@@ -27,6 +27,7 @@ version 3.08 ()
|
|||||||
|
|
||||||
* [#68] Fix device_port entries for switches with non-unique
|
* [#68] Fix device_port entries for switches with non-unique
|
||||||
ifDesc (Nic Bernstein)
|
ifDesc (Nic Bernstein)
|
||||||
|
* Don't try to munge undef values
|
||||||
|
|
||||||
version 3.07 (2013-10-01)
|
version 3.07 (2013-10-01)
|
||||||
|
|
||||||
|
|||||||
2
Info.pm
2
Info.pm
@@ -4236,11 +4236,13 @@ 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;
|
||||||
$munged{$key} = $subref->($value);
|
$munged{$key} = $subref->($value);
|
||||||
}
|
}
|
||||||
return \%munged;
|
return \%munged;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
|
return unless $data;
|
||||||
my $subref = $munge->{$attr};
|
my $subref = $munge->{$attr};
|
||||||
return $subref->($data);
|
return $subref->($data);
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user