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 | |
| 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)
| -rw-r--r-- | Changes | 2 | ||||
| -rw-r--r-- | dist.ini | 1 | ||||
| -rw-r--r-- | lib/Data/MultiValued/RangeContainer.pm | 4 |
3 files changed, 4 insertions, 3 deletions
@@ -1,6 +1,6 @@ Revision history for Data::MultiValued -0.0.1_2 2011-11-25 15:33:39 Europe/London +0.0.1_2 2011-11-30 10:59:15 Europe/London 0.0.1_1 2011-11-24 17:59:57 Europe/London - first working version @@ -64,6 +64,7 @@ directory = t/lib [MetaJSON] [ExecDir] +dir = scripts [ShareDir] 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) { |