The old way was possibly the WORST way to blank a LRU cache by replacing it...

The old way was possibly the WORST way to blank a LRU cache by replacing it for a bare hash. Possible memory leak fixed ...

modules/Bio/EnsEMBL/DBSQL/AssemblyMapperAdaptor.pm

@@ -1771,13 +1771,14 @@ sub seq_ids_to_regions {
 sub delete_cache{
   my ($self) = @_;
 
-  $self->{'sr_name_cache'}     = {};
-  $self->{'sr_id_cache'}       = {};
+  %{$self->{'sr_name_cache'}}     = ();
+  %{$self->{'sr_id_cache'}}       = ();
 
   foreach my $key (keys %{$self->{'_asm_mapper_cache'}}){
     $self->{'_asm_mapper_cache'}->{$key}->flush();
   }
-  $self->{'_asm_mapper_cache'} = {};
+  %{$self->{'_asm_mapper_cache'}} = ();
+  return;
 }