diff options
| author | Simon Wistow <simon@thegestalt.org> | 2011-03-07 01:33:58 +0000 |
|---|---|---|
| committer | Simon Wistow <simon@thegestalt.org> | 2011-03-07 01:33:58 +0000 |
| commit | a1ba8869c54673400beddff04816c2d2c4a06957 (patch) | |
| tree | 0b3810b1a28e97f3a620358c0bb34e6e9196e8d9 /lib/Net/Riak | |
| parent | updated change log (diff) | |
| download | net-riak-a1ba8869c54673400beddff04816c2d2c4a06957.tar.gz | |
Fix remove_link
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/Riak/Object.pm | 7 |
1 files changed, 5 insertions, 2 deletions
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 { |