From dcc8da8ced6f6199204c7c176c2a71d73006f4b9 Mon Sep 17 00:00:00 2001
From: "sgunderson@bigfoot.com" <>
Date: Wed, 6 Sep 2006 15:55:43 +0200
Subject: [PATCH] More fixes.

---
 tests/xml-diff.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/tests/xml-diff.pl b/tests/xml-diff.pl
index 5a59dd2..861e6a3 100644
--- a/tests/xml-diff.pl
+++ b/tests/xml-diff.pl
@@ -5,11 +5,12 @@
 # regression testing.
 #
 
+use strict;
+use warnings;
+
 use XML::DOM;
 use XML::Parser;
 use XML::NamespaceSupport;
-use Scalar::Util;
-package XML::Template;
 
 my $parser = XML::DOM::Parser->new;
 my $d1 = $parser->parsefile($ARGV[0]);
@@ -88,7 +89,7 @@ sub compare_attr_list {
 	my ($attrs1, $attrs2, $nsup1, $nsup2) = @_;
 
 	for my $attr1 ($attrs1->getValues) {
-		my $name = $attr->getName;
+		my $name = $attr1->getName;
 		next if ($name =~ /^xmlns:(.*)$/);
 		
 		my ($nsuri1, undef, $lname1) = $nsup1->process_attribute_name($n1->getName);
-- 
2.39.2