From 891662737613762211d7cd96772edcdd34cafcd4 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 16 Jun 2010 14:04:06 +0200
Subject: fix issue with get_property

---
 lib/Net/Riak/Bucket.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/Net/Riak/Bucket.pm b/lib/Net/Riak/Bucket.pm
index 2a3e932..66e998e 100644
--- a/lib/Net/Riak/Bucket.pm
+++ b/lib/Net/Riak/Bucket.pm
@@ -44,7 +44,8 @@ sub allow_multiples {
 
 sub get_keys {
     my $self = shift;
-    $self->get_property('keys', {keys => 'true', props => 'false'});
+    my $properties = $self->get_properties({keys => 'true', props => 'false'});
+    return $properties->{keys};
 }
 
 sub get {
@@ -67,11 +68,11 @@ sub set_property {
 sub get_property {
     my ($self, $key, $params) = @_;
     my $props = $self->get_properties($params);
-    return $props->{$key};
+    return $props->{props}->{$key};
 }
 
 sub get_properties {
-    my ($self, $params)  = @_;
+    my ($self, $params) = @_;
 
     $params->{props} = 'true'  unless exists $params->{props};
     $params->{keys}  = 'false' unless exists $params->{keys};
-- 
cgit 1.4.1