From fa9d952a28c6b207500442d5a5c5bee31ab1c1a9 Mon Sep 17 00:00:00 2001
From: "sgunderson@bigfoot.com" <>
Date: Wed, 6 Sep 2006 15:57:24 +0200
Subject: [PATCH] Work around that XML::NamespaceSupport uses undef instead of
 '' for no NSURI (sane enough, really)

---
 tests/xml-diff.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/xml-diff.pl b/tests/xml-diff.pl
index f7ccd8c..584b1e4 100644
--- 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;
-- 
2.39.5