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, '>',
|
