Permalink
Browse files

Uhm, make the compat layer use the new hashref opt api.

  • Loading branch information...
1 parent 47635e9 commit 35f8e7831c69a3b32d7155f716411a5a20882061 Chia-liang Kao committed Sep 8, 2008
Showing with 5 additions and 4 deletions.
  1. +5 −4 trunk/Hierarchy.pm
View
@@ -485,9 +485,9 @@ sub _remove_redundant_properties_and_undefs {
# 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 @@ sub to_absolute {
=head1 AUTHORS
-Chia-liang Kao E<lt>clkao@clkao.orgE<gt> and David Glasser E<lt>glasser@mit.eduE<gt>
+Chia-liang Kao E<lt>clkao@clkao.orgE<gt>
+David Glasser E<lt>glasser@mit.eduE<gt>
=head1 COPYRIGHT

0 comments on commit 35f8e78

Please sign in to comment.