Work around that XML::NamespaceSupport uses undef instead of '' for no NSURI

(sane enough, really)

diff --git a/tests/xml-diff.pl b/tests/xml-diff.pl
index f7ccd8c5fdce8cb9beeb0e3bf8009fad30a83f4b..584b1e4a0e59a0e6b1adb5810662b0ef3d39d30b 100644 (file)
--- a/tests/xml-diff.pl
+++ b/tests/xml-diff.pl
@@ -40,6 +40,9 @@ sub compare {
        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";
@@ -93,6 +96,7 @@ sub compare_attr_list {
                next if ($name =~ /^xmlns:(.*)$/);
                
                my ($nsuri1, undef, $lname1) = $nsup1->process_attribute_name($attr1->getName);
+               $nsuri1 |= '';
 
                if (!defined($attrs2)) {
                        # n2 has no attributes at all
@@ -103,6 +107,7 @@ sub compare_attr_list {
                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;