[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon Feb 18 10:40:39 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv11112

Modified Files:
	Central.pm 
Log Message:
added a statement to ensure that calls to getDefaultCentral() are only made if a central isnt already specified in the environment to prevent calls being made to http://biomoby.org that are not necessary
moby-live/Perl/MOBY/Client Central.pm,1.154,1.155
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.154
retrieving revision 1.155
diff -u -r1.154 -r1.155
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2008/02/13 03:39:28	1.154
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2008/02/18 15:40:39	1.155
@@ -259,8 +259,10 @@
   }
   $self->Connections( [] );    # initialize;
   
+ do {
   my ($central, $ontologyserver) = _getDefaultCentral();
   $self->default_MOBY_server($central) if $central;
+ } unless $ENV{MOBY_SERVER};
 
   # if user has set up preferred servers, then use those by default