[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Dec  8 09:29:55 EST 2006
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv841/MOBY/Client

Modified Files:
	Service.pm 
Log Message:
this code is ALMOST CERTAINLY BROKEN so please don't check out the registry right now.  I just need to get it on to Heiko's machine so we can test it further
moby-live/Perl/MOBY/Client Service.pm,1.26,1.27
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2006/12/07 17:23:41	1.26
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2006/12/08 14:29:55	1.27
@@ -120,6 +120,8 @@
 	#close OUT;
 	# ________________________________________
 	my $wsdl = URI::Escape::uri_escape( $self->service );    # this seems to fix the bug
+#	my $wsdl = $self->service;
+	
 	return undef unless $wsdl;
 	if ($wsdl =~ /<http:binding verb=['"]POST['"]\/>/){
 		$self->category('post');