From d47a5d9018fe9b8c30a400a9ff9f747bdcf4bffb Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@thenautilus.net>
Date: Mon, 14 Nov 2011 15:06:47 +0000
Subject: fix tags&ranges ser bug (w/ test)

---
 lib/Data/MultiValued/TagContainerForRanges.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Data/MultiValued/TagContainerForRanges.pm b/lib/Data/MultiValued/TagContainerForRanges.pm
index d3cd4b9..604dcb7 100644
--- a/lib/Data/MultiValued/TagContainerForRanges.pm
+++ b/lib/Data/MultiValued/TagContainerForRanges.pm
@@ -20,14 +20,19 @@ sub _create_new_inferior {
 
 sub _rebless_storage {
     my ($self) = @_;
-    bless $self->{_storage},'Data::MultiValued::RangeContainer';
+    bless $_,'Data::MultiValued::RangeContainer'
+        for values %{$self->{_storage}};
     bless $self->{_default_tag},'Data::MultiValued::RangeContainer';
     return;
 }
 
 sub _as_hash {
     my ($self) = @_;
-    my %st = %{$self->_storage};
+    my %st;
+    for my $k (keys %{$self->_storage}) {
+        my %v = %{$self->_storage->{$k}};
+        $st{$k}=\%v;
+    }
     my %dt = %{$self->_default_tag};
     return {
         _storage => \%st,
-- 
cgit v1.2.3