[perl-xml-cvs] CVS: xml-simple/lib/XML Simple.pm,1.24,1.25

[Grant M. <gr...@us...>]

Update of /cvsroot/perl-xml/xml-simple/lib/XML
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13036/lib/XML

Modified Files:
	Simple.pm 
Log Message:
- fix behaviour of XMLout() with undef in arrayref and SuppressEmpty enabled

Index: Simple.pm
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/lib/XML/Simple.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- Simple.pm	28 Apr 2006 22:43:36 -0000	1.24
+++ Simple.pm	19 Sep 2006 08:33:30 -0000	1.25
@@ -1457,6 +1457,7 @@
 
   elsif(UNIVERSAL::isa($ref, 'ARRAY')) {
     foreach $value (@$ref) {
+      next if !defined($value) and $self->{opt}->{suppressempty};
       if(!ref($value)) {
         push @result,
              $indent, '<', $name, '>',