# 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]);
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);