[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 30 12:55:55 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv23469/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.119,1.120
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -r1.119 -r1.120
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 16:54:12	1.119
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 16:55:55	1.120
@@ -1972,9 +1972,9 @@
 		    next unless ($lsid =~ /^urn\:lsid/);
 		    push @isalsids, $lsid;
 		}
-		$self->{ISA_CACHE}->{$desiredterm} = [@$isalsids];  # can't assign a listreference or it will empty itself!
+		$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} };
 	}