svn commit: r1200577 - /trafficserver/site/branches/ats-cms/lib/view.pm

[amc]

Author: amc
Date: Thu Nov 10 21:39:19 2011
New Revision: 1200577

URL: http://svn.apache.org/viewvc?rev=1200577&view=rev
Log:
Changed from Clone to Storable.

Modified:
    trafficserver/site/branches/ats-cms/lib/view.pm

Modified: trafficserver/site/branches/ats-cms/lib/view.pm
URL: 
http://svn.apache.org/viewvc/trafficserver/site/branches/ats-cms/lib/view.pm?rev=1200577&r1=1200576&r2=1200577&view=diff
==============================================================================
--- trafficserver/site/branches/ats-cms/lib/view.pm (original)
+++ trafficserver/site/branches/ats-cms/lib/view.pm Thu Nov 10 21:39:19 2011
@@ -186,7 +186,7 @@ our @ISA = ( 'view::Source' );
 use constant TRUE => 1;
 use constant FALSE => 0;
 use Carp;
-use Clone;
+use Storable;
 
 # Map from directory paths to Nodes.
 our %Locations;
@@ -388,7 +388,7 @@ sub GetLocation {
         if (not $node->isTop) {
             my $parent = $node->parent; # magic recursion happens here.
             my %locals = %{$node->vars}; # cache local vars.
-            $node->vars(Clone::clone($parent->vars)); # copy parent values.
+            $node->vars(Storable::dclone($parent->vars)); # copy parent values.
             # overwrite parent values with locals.
             @{$node->vars->{keys %locals}} = values %locals;
         }