[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Oct 18 16:34:58 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv687/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
fixed as per Martins bug report.

moby-live/Perl/MOBY/Client Central.pm,1.55,1.56
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -r1.55 -r1.56
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/10/17 21:29:51	1.55
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/10/18 20:34:58	1.56
@@ -1410,11 +1410,12 @@
 	return undef unless ($self->Connection($reg));
 #	return $self->SOAP_connection($reg)->call('DUMP')->paramsall;	
 	my $SQLs = $self->_call($reg, 'DUMP_MySQL', "");
-	my ($mobycentral, $mobyobject, $mobyservice, $mobynamespace, $mobyrelationship) = @{SQLs};
+	my ($mobycentral, $mobyobject, $mobyservice, $mobynamespace, $mobyrelationship) = @{$SQLs};
 	return ($mobycentral, $mobyobject, $mobyservice, $mobynamespace, $mobyrelationship);
 }
 
 *DUMP_MySQL =\&DUMP;
+*DUMP_MySQL =\&DUMP;
 
 sub _parseServices {
     my ($self, $Registry, $XML) = @_;