Fix attribute3 test for Perl.

diff --git a/perl/XML/Template.pm b/perl/XML/Template.pm
index 19fa47082f7e7cb64021ae9be39a0e93c45eae52..3747f83b6340e8b2db95e48c6e8590226e90c1a4 100644 (file)
--- a/perl/XML/Template.pm
+++ b/perl/XML/Template.pm
@@ -113,6 +113,7 @@ sub process {
                }
                
                for my $instance (@$obj) {
+                       next if (!defined($instance));
 
                        my $newnode = $frag->cloneNode(1);
                        process($newnode, $instance, $clean, $nsup);
@@ -158,7 +159,9 @@ sub alternate {
        my $num = scalar @elems;
 
        for my $ref (@$array) {
-               $ref->{$tag} = $elems[$i++ % $num];
+               if (defined($ref)) {
+                       $ref->{$tag} = $elems[$i++ % $num];
+               }
        }
 
        return $array;