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

[clkao at bestpractical.com]

Author: clkao
Date: Mon Sep  8 06:54:35 2008
New Revision: 15801

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

Log:
 r35264 at mtl (orig r199):  clkao | 2004-09-17 05:13:08 +0800
 Don't bother call _store_recursive when doing store_fast.


Modified: Data-Hierarchy/trunk/Hierarchy.pm
==============================================================================
--- Data-Hierarchy/trunk/Hierarchy.pm	(original)
+++ Data-Hierarchy/trunk/Hierarchy.pm	Mon Sep  8 06:54:35 2008
@@ -116,6 +116,7 @@
 	keys %$both;
 }
 
+# empty the overridden values on descendents for hash
 sub _store_recursively {
     my ($self, $key, $value, $hash) = @_;
 
@@ -147,7 +148,8 @@
 	}
     }
     return unless keys %$value;
-    $self->_store_recursively ($key, $value, $self->{hash});
+    $self->_store_recursively ($key, $value, $self->{hash})
+	unless $fast;
     $self->_store ($key, $value);
 }