Commit feccfdea authored by Magali Ruffier's avatar Magali Ruffier
Browse files

wrong return type for slices

parent c7ddcadb
...@@ -25,6 +25,7 @@ sub run { ...@@ -25,6 +25,7 @@ sub run {
while (my $slice = shift @sorted_slices) { while (my $slice = shift @sorted_slices) {
foreach my $code (keys %attrib_codes) { foreach my $code (keys %attrib_codes) {
print $slice . " got a slice with " . $code . " code and value " . $attrib_codes{$code}. "\n" ;
my $count = $self->get_feature_count($slice, $code, $attrib_codes{$code}); my $count = $self->get_feature_count($slice, $code, $attrib_codes{$code});
if ($count > 0) { if ($count > 0) {
$self->store_attrib($slice, $count, $code); $self->store_attrib($slice, $count, $code);
...@@ -39,8 +40,8 @@ sub run { ...@@ -39,8 +40,8 @@ sub run {
sub get_slices { sub get_slices {
my ($self, $species) = @_; my ($self, $species) = @_;
my @slices = Bio::EnsEMBL::Registry->get_adaptor($species, 'core', 'slice')->fetch_all('toplevel'); my $slices = Bio::EnsEMBL::Registry->get_adaptor($species, 'core', 'slice')->fetch_all('toplevel');
return \@slices; return $slices;
} }
......
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