diff options
| author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-11-30 10:59:20 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-11-30 10:59:20 +0000 |
| commit | 6f249879aa78afc628c54eb1f53a634b112959aa (patch) | |
| tree | 8e597c398e49b3b24b19f15af354c92d720e15c6 /lib | |
| parent | Build results of 75f2023 (on master) (diff) | |
| parent | remove need for perl 5.12 (diff) | |
| download | data-multivalued-6f249879aa78afc628c54eb1f53a634b112959aa.tar.gz data-multivalued-6f249879aa78afc628c54eb1f53a634b112959aa.tar.bz2 data-multivalued-6f249879aa78afc628c54eb1f53a634b112959aa.zip | |
Build results of 339786f (on master)
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) { |