[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 30 11:22:04 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv22836/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
set client to default to isa

moby-live/Perl/MOBY/Client Central.pm,1.114,1.115
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -r1.114 -r1.115
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 15:18:12	1.114
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 15:22:04	1.115
@@ -1645,7 +1645,7 @@
 	@relationships = @{ $args{'Relationships'} }
 	  if ( $args{'Relationships'}
 		&& ( ref( $args{'Relationships'} ) =~ /array/i ) );
-	push @relationships, 'isa' unless $relationships->[0];  # need to have at least one relationship
+	push @relationships, 'isa' unless $relationships[0];  # need to have at least one relationship
 	my $reg = $args{'Registry'};
 	my $m;
 	my $payload;