Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit 35f8e7831c69a3b32d7155f716411a5a20882061 1 parent 47635e9
Chia-liang Kao authored
Showing with 5 additions and 4 deletions.
  1. +5 −4 trunk/Hierarchy.pm
View
9 trunk/Hierarchy.pm
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.