[Bps-public-commit] r15805 - Data-Hierarchy/trunk

[clkao at bestpractical.com]

Author: clkao
Date: Mon Sep  8 06:57:28 2008
New Revision: 15805

Modified:
   Data-Hierarchy/trunk/   (props changed)
   Data-Hierarchy/trunk/Hierarchy.pm
   Data-Hierarchy/trunk/Makefile.PL

Log:
 r35410 at mtl (orig r345):  clkao | 2006-07-21 21:02:51 +0800
 Use Storable::dclone instead of Clone::clone.
 


Modified: Data-Hierarchy/trunk/Hierarchy.pm
==============================================================================
--- Data-Hierarchy/trunk/Hierarchy.pm	(original)
+++ Data-Hierarchy/trunk/Hierarchy.pm	Mon Sep  8 06:57:28 2008
@@ -1,7 +1,7 @@
 package Data::Hierarchy;
 $VERSION = '0.30';
 use strict;
-use Clone qw(clone);
+use Storable qw(dclone);
 # XXX consider using Moose
 
 =head1 NAME
@@ -166,12 +166,12 @@
 
     for (@datapoints) {
 	my $newv = $self->{hash}{$_};
-	$newv = clone $newv unless $dont_clone;
+	$newv = dclone $newv unless $dont_clone;
 	$value = {%$value, %$newv};
     }
     if (exists $self->{sticky}{$path}) {
 	my $newv = $self->{sticky}{$path};
-	$newv = clone $newv unless $dont_clone;
+	$newv = dclone $newv unless $dont_clone;
 	$value = {%$value, %$newv}
     }
     return wantarray ? ($value, @datapoints) : $value;

Modified: Data-Hierarchy/trunk/Makefile.PL
==============================================================================
--- Data-Hierarchy/trunk/Makefile.PL	(original)
+++ Data-Hierarchy/trunk/Makefile.PL	Mon Sep  8 06:57:28 2008
@@ -8,7 +8,6 @@
     VERSION_FROM        => 'Hierarchy.pm',
     DISTNAME            => 'Data-Hierarchy',
     PREREQ_PM           => {
-	'Clone'		=> '0',
         Test::Exception => '0',
     },
     dist                => {