From: sgunderson@bigfoot.com <>
Date: Wed, 4 Oct 2006 01:07:53 +0000 (+0200)
Subject: Fix attribute3 test for Perl.
X-Git-Url: https://git.sesse.net/?a=commitdiff_plain;h=1a6c27a9814f5194445d4f3576a14388ec0347d4;hp=8a0246fb0c04af3297d2d741b1b2fadfb0cd99ad;p=xml-template

Fix attribute3 test for Perl.
---

diff --git a/perl/XML/Template.pm b/perl/XML/Template.pm
index 19fa470..3747f83 100644
--- 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;