Commit 169c6359 authored by Andy Yates's avatar Andy Yates
Browse files

Foreach better than while .. i think

parent 1b043f07
......@@ -178,7 +178,7 @@ sub clear_caches {
my ($self) = @_;
my $adaptors = Bio::EnsEMBL::Registry->get_all_adaptors(
$self->species(), $self->group());
while (my $adaptor = shift @{$adaptors}) {
foreach my $adaptor (@{$adaptors}) {
if($adaptor->can('clear_cache')) {
$adaptor->clear_cache();
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment