Add a proper wrapper for php5-swig, which also makes attribute[23] pass. All tests...

[xml-template] / perl / XML / Template.pm

diff --git a/perl/XML/Template.pm b/perl/XML/Template.pm
index 80115fcdbb55cbc9fc6f215f46284b3196f0fb03..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);
@@ -121,7 +122,6 @@ sub process {
                }
 
                $frag->dispose;
-               return;
        }
 
        clean($node, $nsup) if $clean;
@@ -159,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;