- my %in = (map {my ($here, $call) = unpack "A1 A*", $_; ($call, $here)} split /:/, $thing->{n});
- my ($del, $add) = $parent->diff_nodes(keys %in);
-
- my $call;
-
+ for (split(/:/, $thing->{n})) {
+ my ($here, $call) = unpack("A1 A*", $_);
+ $in{$call} = $here;
+ }
+ }
+ if ($thing->{a}) {
+ for (split(/:/, $thing->{a})) {
+ my ($here, $call) = unpack("A1 A*", $_);
+ $in{$call} = $here;
+ }
+ }
+ my ($del, $add) = $parent->diff_nodes(keys %in);
+ if ($add) {