+ Fix issue with leef

This commit is contained in:
garnier-quentin 2018-12-31 18:10:15 +01:00
parent 538fe8c269
commit b47bd2d46f

View File

@ -181,8 +181,8 @@ sub autoreduce_leef {
my $array_ref = []; my $array_ref = [];
my $subset_current = 0; my $subset_current = 0;
my $subset_construct = []; my $subset_construct = [];
foreach ([@{$options{current}}, @{$self->{array_ref_ar}}]) { foreach ([@{$options{current}}], @{$self->{array_ref_ar}}) {
foreach my $entry (@$_) { foreach my $entry (@$_) {;
push @$subset_construct, [$entry->[0], $entry->[1]]; push @$subset_construct, [$entry->[0], $entry->[1]];
$subset_current++; $subset_current++;
if ($subset_current == $self->{subsetleef}) { if ($subset_current == $self->{subsetleef}) {
@ -197,7 +197,7 @@ sub autoreduce_leef {
push @$array_ref, \@$subset_construct; push @$array_ref, \@$subset_construct;
} }
$self->{array_ref_ar} = $array_ref; $self->{array_ref_ar} = \@$array_ref;
return 0; return 0;
} }