this would previously skip (i.e., ignore) properties that
matched '^([a-z]+)(\d+)$' even if they were not part of an
indexed properties series (which always start with 0).
This fixes previously missing API dump occurrences of:
-smbios1
-comments6
-netmask6
-gateway6
-address6
-dns1
-dns2
-dns3
-server1
-server2
if ($p =~ m/^([a-z]+)(\d+)$/) {
if ($2 == 0) {
$p = "$1\[n\]";
- } else {
- next;
+ } elsif (defined($d->{$1.'0'})) {
+ next; # only handle once for -xx0, but only if -xx0 exists
}
}
$res->{$k}->{$p} = ref($pd) ? clone($pd) : $pd;