Fix yet more undefined variable errors.

diff --git a/tests/xml-diff.pl b/tests/xml-diff.pl
index 861e6a37a408904a07b3e64db7bb786a0fc1972a..f7ccd8c5fdce8cb9beeb0e3bf8009fad30a83f4b 100644 (file)
--- a/tests/xml-diff.pl
+++ b/tests/xml-diff.pl
@@ -92,7 +92,7 @@ sub compare_attr_list {
                my $name = $attr1->getName;
                next if ($name =~ /^xmlns:(.*)$/);
                
-               my ($nsuri1, undef, $lname1) = $nsup1->process_attribute_name($n1->getName);
+               my ($nsuri1, undef, $lname1) = $nsup1->process_attribute_name($attr1->getName);
 
                if (!defined($attrs2)) {
                        # n2 has no attributes at all
@@ -102,7 +102,7 @@ sub compare_attr_list {
 
                my $attr2_found;
                for my $attr2 ($attrs2->getValues) {
-                       my ($nsuri2, undef, $lname2) = $nsup2->process_attribute_name($n2->getName);
+                       my ($nsuri2, undef, $lname2) = $nsup2->process_attribute_name($attr2->getName);
                
                        if ($nsuri1 eq $nsuri2 && $lname1 eq $lname2) {
                                $attr2_found = $attr2;
@@ -115,7 +115,7 @@ sub compare_attr_list {
                        last;
                }
 
-               if ($attr1->getValue ne $attr2->getValue) {
+               if ($attr1->getValue ne $attr2_found->getValue) {
                        print STDERR "Attribute $nsuri1/$lname1 has differing values\n";
                }
        }