From 1a6c27a9814f5194445d4f3576a14388ec0347d4 Mon Sep 17 00:00:00 2001
From: "sgunderson@bigfoot.com" <>
Date: Wed, 4 Oct 2006 03:07:53 +0200
Subject: [PATCH] Fix attribute3 test for Perl.

---
 perl/XML/Template.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;
-- 
2.39.2