my ($nsuri1, undef, $lname1) = $nsup1->process_element_name($n1->getNodeName);
my ($nsuri2, undef, $lname2) = $nsup2->process_element_name($n2->getNodeName);
+ $nsuri1 |= '';
+ $nsuri2 |= '';
+
# compare element names
unless ($nsuri1 eq $nsuri2 && $lname1 eq $lname2) {
print STDERR "$nsuri1/$lname1 != $nsuri2/$lname2\n";
next if ($name =~ /^xmlns:(.*)$/);
my ($nsuri1, undef, $lname1) = $nsup1->process_attribute_name($attr1->getName);
+ $nsuri1 |= '';
if (!defined($attrs2)) {
# n2 has no attributes at all
my $attr2_found;
for my $attr2 ($attrs2->getValues) {
my ($nsuri2, undef, $lname2) = $nsup2->process_attribute_name($attr2->getName);
+ $nsuri2 |= '';
if ($nsuri1 eq $nsuri2 && $lname1 eq $lname2) {
$attr2_found = $attr2;