diff --git a/modules/Bio/EnsEMBL/Registry.pm b/modules/Bio/EnsEMBL/Registry.pm index e53d2e5ba7308593586daee07827d3a826348113..41a84f72089d5b44db47982cf9d42254a7cfbf91 100644 --- a/modules/Bio/EnsEMBL/Registry.pm +++ b/modules/Bio/EnsEMBL/Registry.pm @@ -2428,8 +2428,13 @@ sub get_species_and_object_type { my $species = $dba->species(); + my $fetched_something = 0; + while ( $sth->fetch() ) { + $fetched_something = 1; + my $standard_prefix = 0; + foreach my $allowed_prefix (@allowed_prefixes) { if ( substr( $prefix, 0, length($allowed_prefix) ) eq @@ -2453,6 +2458,12 @@ sub get_species_and_object_type { } + if ( !$fetched_something ) { + # This database didn't have a matching + # 'species.stable_id_prefix' key in its meta table. + push( @nonstandard_prefix_species, $species ); + } + } ## end foreach my $dba ( @{ $self->get_all_DBAdaptors...}) } ## end if ( !%stable_id_prefix)