[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Feb  9 16:46:34 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv6892/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
fixing potential infinite loop that Eddie found
moby-live/Perl/MOBY/Client Central.pm,1.146,1.147
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.146
retrieving revision 1.147
diff -u -r1.146 -r1.147
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/02/09 21:38:28	1.146
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/02/09 21:46:34	1.147
@@ -272,6 +272,8 @@
     my $regno = 0;
     my %reg   = %{ $self->Registries };
     while ( my ( $name, $acc ) = each %reg ) {
+	$self->default_MOBY_servername($name);  # set the current as the default... if there is only one, then it becomes default, which is nice!  If ther eis more than one, then the person shold be explicitly calling one or the other anyway
+	
       $regno++;            # count how many registries we have in total
       my $url  = $acc->{URL}  ? $acc->{URL}  : $self->default_MOBY_server;
       my $uri  = $acc->{URI}  ? $acc->{URI}  : $self->default_MOBY_uri;