diff options
Diffstat (limited to 'lib/Data/MultiValued/RangeContainer.pm')
| -rw-r--r-- | lib/Data/MultiValued/RangeContainer.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Data/MultiValued/RangeContainer.pm b/lib/Data/MultiValued/RangeContainer.pm index cc95c45..a444150 100644 --- a/lib/Data/MultiValued/RangeContainer.pm +++ b/lib/Data/MultiValued/RangeContainer.pm @@ -99,9 +99,9 @@ sub _partition_slots { my (@before,@overlap,@after); my $st=$self->_storage; - keys @$st; + for my $idx (0..$#$st) { + my $slot = $st->[$idx]; - while (my ($idx,$slot) = each @$st) { my ($sf,$st) = @$slot{'from','to'}; if (_cmp($st,$from,1,0) <0) { |