}
for my $instance (@$obj) {
+ next if (!defined($instance));
my $newnode = $frag->cloneNode(1);
process($newnode, $instance, $clean, $nsup);
my $num = scalar @elems;
for my $ref (@$array) {
- $ref->{$tag} = $elems[$i++ % $num];
+ if (defined($ref)) {
+ $ref->{$tag} = $elems[$i++ % $num];
+ }
}
return $array;