[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sun Nov 20 11:13:23 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv6049/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
figured out why perl client code wasn't returning LSIDs

moby-live/Perl/MOBY/Client Central.pm,1.126,1.127
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.126
retrieving revision 1.127
diff -u -r1.126 -r1.127
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/09/27 16:21:04	1.126
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/11/20 16:13:23	1.127
@@ -1302,7 +1302,7 @@
 =cut
 
 sub retrieveServiceNames {
-	my ($self, %args) = shift;
+	my ($self, %args) = @_;
 	my $reg = $args{registry};
 	my $aslsid = $args{as_lsid};