diff options
Diffstat (limited to 'lib')
| -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 18672bc..f7a1da0 100644 --- a/lib/Data/MultiValued/RangeContainer.pm +++ b/lib/Data/MultiValued/RangeContainer.pm @@ -78,9 +78,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) { |