+ my @c1 = ();
+ my @c2 = ();
+
+ # find all elements except comments and blanks (not perfect, since we don't get
+ # compression, but ok)
+ for my $i (0..($c1->getLength-1)) {
+ my $item = $c1->item($i);
+ next if ($item->getNodeType == XML::DOM::COMMENT_NODE);
+ next if ($item->getNodeType == XML::DOM::TEXT_NODE && $item->getData !~ /\S/);
+
+ push @c1, $item;
+ }
+ for my $i (0..($c2->getLength-1)) {
+ my $item = $c2->item($i);
+ next if ($item->getNodeType == XML::DOM::COMMENT_NODE);
+ next if ($item->getNodeType == XML::DOM::TEXT_NODE && $item->getData !~ /\S/);
+
+ push @c2, $item;
+ }
+
+ if (scalar @c1 != scalar @c2) {