[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Dec  8 11:14:13 EST 2010
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Data
In directory dev.open-bio.org:/tmp/cvs-serv1551/lib/MOSES/MOBY/Data

Modified Files:
	Object.pm 
Log Message:
primitives with 'false' perl values dont get serialized properly when you call toXML()
moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Data Object.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Data/Object.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Data/Object.pm	2008/04/29 19:35:57	1.4
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Data/Object.pm	2010/12/08 16:14:13	1.5
@@ -239,7 +239,7 @@
 	 provision => 1,
 	 );
     if ($name eq 'value' and $self->primitive) {
-	if ($value) {
+	if (defined $value) {
 	    if ($self->{cdata}) {  # don't use: $self->cdata because not everybody has it
 		$root->appendChild (XML::LibXML::CDATASection->new ($self->_express_value ($value)));
 	    } else {