From feccfdeaf09de65dfd9a2c799d7d3af84b738630 Mon Sep 17 00:00:00 2001
From: Magali Ruffier <mr6@ebi.ac.uk>
Date: Fri, 14 Sep 2012 08:25:05 +0000
Subject: [PATCH] wrong return type for slices
---
modules/Bio/EnsEMBL/Pipeline/Production/StatsGenerator.pm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/modules/Bio/EnsEMBL/Pipeline/Production/StatsGenerator.pm b/modules/Bio/EnsEMBL/Pipeline/Production/StatsGenerator.pm
index 6f0d8abd86..5dc8568d2d 100644
--- a/modules/Bio/EnsEMBL/Pipeline/Production/StatsGenerator.pm
+++ b/modules/Bio/EnsEMBL/Pipeline/Production/StatsGenerator.pm
@@ -25,6 +25,7 @@ sub run {
while (my $slice = shift @sorted_slices) {
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});
if ($count > 0) {
$self->store_attrib($slice, $count, $code);
@@ -39,8 +40,8 @@ sub run {
sub get_slices {
my ($self, $species) = @_;
- my @slices = Bio::EnsEMBL::Registry->get_adaptor($species, 'core', 'slice')->fetch_all('toplevel');
- return \@slices;
+ my $slices = Bio::EnsEMBL::Registry->get_adaptor($species, 'core', 'slice')->fetch_all('toplevel');
+ return $slices;
}
--
GitLab