More robust creation of DNA database, not every DB type defines a 'dn…

…adb' method.
Ensembl · Nov 13, 2019 · 6e43583 · 6e43583
1 parent a25122c
commit 6e43583
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/Bio/EnsEMBL/DataCheck/DbCheck.pm b/lib/Bio/EnsEMBL/DataCheck/DbCheck.pm
@@ -318,13 +318,14 @@ sub get_dna_dba {
   my $self = shift;
 
   $self->load_registry();
-  my $dna_dba = $self->dba->dnadb();
-  if ($dna_dba->group ne 'core') {
+  my $dna_dba = $self->registry->get_DBAdaptor($self->species, 'core');
+  if (defined $dna_dba) {
+    $self->registry->add_DNAAdaptor($self->species, $self->dba->group, $self->species, 'core');
+    push @{$self->dba_list}, $dna_dba;
+  } else {
     die "Could not retrieve DNA database for ".$self->dba->dbc->dbname;
   }
 
-  push @{$self->dba_list}, $dna_dba if defined $dna_dba;
-
   return $dna_dba;
 }