+ Fix issue with leef

This commit is contained in:
garnier-quentin 2018-12-31 18:10:15 +01:00
parent 538fe8c269
commit b47bd2d46f
1 changed files with 3 additions and 3 deletions

View File

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