Commit 82a19226 authored by Magali Ruffier's avatar Magali Ruffier
Browse files

replaced reg variable with registry

parent 2131d21a
......@@ -48,7 +48,7 @@ use strict;
use Bio::EnsEMBL::Utils::Exception qw(throw warning deprecate);
use Bio::EnsEMBL::Utils::Argument qw(rearrange);
use Bio::EnsEMBL::Registry;
my $reg = "Bio::EnsEMBL::Registry";
my $registry = "Bio::EnsEMBL::Registry";
=head2 new
......@@ -86,12 +86,12 @@ sub new {
my @adaps;
if (!defined ($groups)){
#get all adaptors for that species and type
@adaps = @{$reg->get_all_adaptors(-species => $species, -type => $type)};
@adaps = @{$registry->get_all_adaptors(-species => $species, -type => $type)};
}
else{
#get only specified adaptors for the particular groups
foreach my $group (@{$groups}){
push @adaps, $reg->get_adaptor($species,$group,$type);
push @adaps, $registry->get_adaptor($species,$group,$type);
}
}
......
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