[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 30 12:56:19 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv23533/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
doh.  The cache was caching references to lists that were then being shifted and emptied, so the cache ended up empty

moby-live/Perl/MOBY/Client Central.pm,1.120,1.121
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -r1.120 -r1.121
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 16:55:55	1.120
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 16:56:19	1.121
@@ -1974,7 +1974,7 @@
 		}
 		$self->{ISA_CACHE}->{$desiredterm} = [(@isalsids)];  # can't assign a listreference or it will empty itself!
 		while ( my $term = shift(@isalsids) ) {  # traverse down and flatten the list
-			$self->{ISA_CACHE}->{$term} = [(@isalsids_];
+			$self->{ISA_CACHE}->{$term} = [(@isalsids)];
 		}
 		return @{ $self->{ISA_CACHE}->{$desiredterm} };
 	}