$d1 =~ s/\s+$//;
$d2 =~ s/\s+$//;
- if ($d1 ne $d2) {
- $d1 =~ s/\n/\\n/;
- $d2 =~ s/\n/\\n/;
+ # compress other whitespace
+ $d1 =~ s/\n/ /g;
+ $d1 =~ s/ +/ /g;
+ $d2 =~ s/\n/ /g;
+ $d2 =~ s/ +/ /g;
+ if ($d1 ne $d2) {
print STDERR "$nsuri1/$lname1 has differing textual content ('$d1' vs. '$d2')\n";
exit(1);
}
if (!defined($attr2_found)) {
print STDERR "Attribute $nsuri1/$lname1 exists on one side but not the other\n";
- last;
+ exit(1);
}
if ($attr1->getValue ne $attr2_found->getValue) {
print STDERR "Attribute $nsuri1/$lname1 has differing values\n";
+ exit(1);
}
}
}