[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Aug 16 11:46:10 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv6108/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
compensate for bad message where namespace is included as a tag but has no value

moby-live/Perl/MOBY/Client Central.pm,1.45,1.46
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/07/21 13:45:48	1.45
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/08/16 15:46:10	1.46
@@ -819,6 +819,7 @@
 				$message .="<objectType>$type</objectType>\n";
 				if (defined($Namespaces) &&  !(ref($Namespaces) =~ /array/i)){return (undef, $self->errorRegXML("invalid structure of $inout namespaces for object $type; expected arrayref"))}
 				foreach my $ns(@{$Namespaces}){
+					next unless $ns;
 					$message .="<Namespace>$ns</Namespace>\n";
 				}
 				$message .="</Simple>\n";