[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Jan 26 16:49:59 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv1715/Client

Modified Files:
	Central.pm 
Log Message:
user-agent update (tested on soaplite .69)
moby-live/Perl/MOBY/Client Central.pm,1.139,1.140
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.139
retrieving revision 1.140
diff -u -r1.139 -r1.140
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/01/25 17:00:18	1.139
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/01/26 21:49:59	1.140
@@ -292,7 +292,7 @@
 	push @{ $self->Connections },
 	  [
 	   $name, $type,
-	   SOAP::Lite->proxy(@soapargs)->uri($uri)->on_fault(
+	   SOAP::Lite->proxy(@soapargs, agent=>$self->user_agent )->uri($uri)->on_fault(
 			     sub {
 			       my ( $soap, $res ) = @_;
 			       die ref $res
@@ -339,7 +339,7 @@
 	[
 	 $self->default_MOBY_servername,
 	 $self->default_MOBY_type,
-	 SOAP::Lite->proxy(@soapargs)->uri( $self->default_MOBY_uri )
+	 SOAP::Lite->proxy(@soapargs, agent=>$self->user_agent )->uri( $self->default_MOBY_uri )
 	 ->on_fault(
 		    sub {
 		      my ( $soap, $res ) = @_;