Fix more silly errors.

[xml-template] / tests / xml-diff.pl

diff --git a/tests/xml-diff.pl b/tests/xml-diff.pl
index 82154ae5528aea7428e81d01ecef22e60328646a..5a59dd2738e748a4ffea7c9d978c9833c98606e0 100644 (file)
--- a/tests/xml-diff.pl
+++ b/tests/xml-diff.pl
@@ -24,7 +24,7 @@ sub compare {
 
        if ($n1->getNodeType != $n2->getNodeType) {
                printf STDERR "Node types don't match (%u vs. %u)\n",
-                       $n1->getNodeType, $n2->getNodeType);
+                       $n1->getNodeType, $n2->getNodeType;
                exit(1);
        }
 
@@ -85,7 +85,7 @@ sub process_namespaces {
 }
 
 sub compare_attr_list {
-       my ($attrs1, $attrs2, $nsup1, $nsup2);
+       my ($attrs1, $attrs2, $nsup1, $nsup2) = @_;
 
        for my $attr1 ($attrs1->getValues) {
                my $name = $attr->getName;