diff options
| author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-11-30 10:59:01 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2011-11-30 11:01:31 +0000 |
| commit | 51124a5bfa786d58e2e730dbdc106242c708cb04 (patch) | |
| tree | ef888220d3c91d2a0609bdfbab6c1ef159da665b /lib | |
| parent | import my default dzil settings (diff) | |
| download | data-multivalued-51124a5bfa786d58e2e730dbdc106242c708cb04.tar.gz data-multivalued-51124a5bfa786d58e2e730dbdc106242c708cb04.tar.bz2 data-multivalued-51124a5bfa786d58e2e730dbdc106242c708cb04.zip | |
remove need for perl 5.12v0.0.1_2-dzilla
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 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) { |