From 51124a5bfa786d58e2e730dbdc106242c708cb04 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>
Date: Wed, 30 Nov 2011 10:59:01 +0000
Subject: remove need for perl 5.12

---
 Changes                                | 1 +
 lib/Data/MultiValued/RangeContainer.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 71b7230..422e857 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for Data::MultiValued
 
 {{$NEXT}}
+  - remove the need for perl 5.12
 
 0.0.1_1   2011-11-24 17:59:57 Europe/London
   - first working version
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) {
-- 
cgit v1.2.3