Skip to content
Snippets Groups Projects
Commit 0da04e6f authored by Ian Longden's avatar Ian Longden
Browse files

sub moved

parent 6ce75b17
No related branches found
No related tags found
No related merge requests found
......@@ -854,7 +854,7 @@ sub load_registry_from_db{
my @dbnames = map {$_->[0] } @$res;
my %temp;
my $software_version = Bio::EnsEMBL::Utils::ConfigRegistry->software_version;
my $software_version = $self->software_version;
print "Will only load $software_version databases\n" if ($verbose);
for my $db (@dbnames){
if($db =~ /^([a-z]+_[a-z]+_[a-z]+)_(\d+)_(\d+[a-z]*)/){
......
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