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

[clkao at bestpractical.com]

Author: clkao
Date: Mon Sep  8 07:00:20 2008
New Revision: 15808

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

Log:
 r35417 at mtl (orig r352):  clkao | 2006-07-26 03:55:49 +0800
 Uhm, make the compat layer use the new hashref opt api.
 


Modified: Data-Hierarchy/trunk/Hierarchy.pm
==============================================================================
--- Data-Hierarchy/trunk/Hierarchy.pm	(original)
+++ Data-Hierarchy/trunk/Hierarchy.pm	Mon Sep  8 07:00:20 2008
@@ -485,9 +485,9 @@
 
 # These are for backwards compatibility only.
 
-sub store_recursively { my $self = shift; $self->store(@_, override_sticky_descendents => 1); }
-sub store_fast        { my $self = shift; $self->store(@_, override_descendents => 0); }
-sub store_override    { my $self = shift; $self->store(@_, override_descendents => 0); }
+sub store_recursively { my $self = shift; $self->store(@_, {override_sticky_descendents => 1}); }
+sub store_fast        { my $self = shift; $self->store(@_, {override_descendents => 0}); }
+sub store_override    { my $self = shift; $self->store(@_, {override_descendents => 0}); }
 
 package Data::Hierarchy::Relative;
 
@@ -548,7 +548,8 @@
 
 =head1 AUTHORS
 
-Chia-liang Kao E<lt>clkao at clkao.orgE<gt> and David Glasser E<lt>glasser at mit.eduE<gt>
+Chia-liang Kao E<lt>clkao at clkao.orgE<gt>
+David Glasser E<lt>glasser at mit.eduE<gt>
 
 =head1 COPYRIGHT