[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jan 24 17:56:55 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv29279/MOBY/Client

Modified Files:
	Service.pm 
Log Message:
silencing error on runnign test suite
moby-live/Perl/MOBY/Client Service.pm,1.29,1.30
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2006/12/08 16:16:41	1.29
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2007/01/24 22:56:55	1.30
@@ -111,6 +111,8 @@
 		}
 	}
 	my $wsdl = $self->service;
+	return undef unless $wsdl;
+
 	if ($wsdl =~ /<http:binding verb=['"]POST['"]\/>/){
 		$self->category('post');
 	}
@@ -125,7 +127,6 @@
 	# ________________________________________
 	$wsdl = URI::Escape::uri_escape( $self->service );    # this seems to fix the bug
 	
-	return undef unless $wsdl;
 	my $soap = SOAP::Lite->service( "data:,$wsdl" );
 	if ( $self->uri ) { $soap->uri( $self->uri ) }
 	$self->serviceName( &_getServiceName( $soap ) );