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 10:59:01 +0000 |
| commit | 339786fd9a5e052ac868beeaf78fe34fc8976fe0 (patch) | |
| tree | 624235d768aa7fc10124e07af2a65f9c2f85cd8a | |
| parent | import my default dzil settings (diff) | |
| download | data-multivalued-339786fd9a5e052ac868beeaf78fe34fc8976fe0.tar.gz data-multivalued-339786fd9a5e052ac868beeaf78fe34fc8976fe0.tar.bz2 data-multivalued-339786fd9a5e052ac868beeaf78fe34fc8976fe0.zip | |
remove need for perl 5.12
| -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) { |