diff options
-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) { |