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