From a1ba8869c54673400beddff04816c2d2c4a06957 Mon Sep 17 00:00:00 2001
From: Simon Wistow <simon@thegestalt.org>
Date: Mon, 7 Mar 2011 01:33:58 +0000
Subject: Fix remove_link

---
 lib/Net/Riak/Object.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/Net/Riak/Object.pm')

diff --git a/lib/Net/Riak/Object.pm b/lib/Net/Riak/Object.pm
index 5efe5f9..1d2b56a 100644
--- a/lib/Net/Riak/Object.pm
+++ b/lib/Net/Riak/Object.pm
@@ -256,8 +256,11 @@ sub add_link {
 }
 
 sub remove_link {
-    my ($self, $link) = @_;
-    # XXX purge links!
+   my ($self, $link) = @_;
+   my @links = grep { $_->key ne $link->key } @{$self->links};
+   $self->_clear_links;
+   $self->append_link($_) for @links;
+   $self;
 }
 
 sub add {
-- 
cgit v1.2.3


From e2d62713835e78adef15bb6d1e3db330a1cfb1bc Mon Sep 17 00:00:00 2001
From: Simon Wistow <simon@thegestalt.org>
Date: Sat, 9 Apr 2011 20:07:45 -0700
Subject: Fix issue with url encoded links

---
 lib/Net/Riak/Object.pm | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

(limited to 'lib/Net/Riak/Object.pm')

diff --git a/lib/Net/Riak/Object.pm b/lib/Net/Riak/Object.pm
index 1d2b56a..f40031b 100644
--- a/lib/Net/Riak/Object.pm
+++ b/lib/Net/Riak/Object.pm
@@ -64,7 +64,7 @@ sub store {
     if (defined $self->key) {
       push @$path, $self->key;
       $method = 'PUT';
-    } 
+    }
 
     my $request = $self->client->new_request($method, $path, $params);
 
@@ -168,13 +168,13 @@ sub populate {
         shift @siblings;
         $self->siblings(\@siblings);
     }
-    
+
     if ($status == 201) {
         my $location = $http_response->header('location');
         my ($key)    = ($location =~ m!/([^/]+)$!);
         $self->key($key);
-    } 
-    
+    }
+
 
     if ($status == 200 || $status == 201) {
         $self->content_type($http_response->content_type)
@@ -185,16 +185,21 @@ sub populate {
     }
 }
 
+sub _uri_decode {
+  my $str = shift;
+  $str =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg;
+  return $str;
+}
+
 sub _populate_links {
     my ($self, $links) = @_;
-
     for my $link (split(',', $links)) {
         if ($link
             =~ /\<\/([^\/]+)\/([^\/]+)\/([^\/]+)\>; ?riaktag=\"([^\']+)\"/)
         {
-            my $bucket = $2;
-            my $key    = $3;
-            my $tag    = $4;
+            my $bucket = _uri_decode($2);
+            my $key    = _uri_decode($3);
+            my $tag    = _uri_decode($4);
             my $l      = Net::Riak::Link->new(
                 bucket => Net::Riak::Bucket->new(
                     name   => $bucket,
-- 
cgit v1.2.3