[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jan  5 16:29:08 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv13010/Perl/MOBY/Client

Modified Files:
	Service.pm 
Log Message:
if service invocation returns an error, catch this and be graceful about it

moby-live/Perl/MOBY/Client Service.pm,1.6,1.7
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2003/11/04 15:38:13	1.6
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2004/01/05 21:29:08	1.7
@@ -206,7 +206,9 @@
 	</moby:MOBY>]]>";
 	my $METHOD = $self->ServiceName;
 	&_LOG(%args, $METHOD);
-	return $self->_soapService->$METHOD($data);
+	my $response;
+	eval {($response) = $self->_soapService->$METHOD($data)};
+	return $@?"":$response;  # the service execution failed then pass back ""
 }