From 35dade03892a08cfd4d535b5a12362e0def7f696 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 14 Jun 2010 11:42:23 +0200
Subject: fix string to build links header

---
 lib/Net/Riak/Link.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/Net/Riak')

diff --git a/lib/Net/Riak/Link.pm b/lib/Net/Riak/Link.pm
index 43bace6..88bceaa 100644
--- a/lib/Net/Riak/Link.pm
+++ b/lib/Net/Riak/Link.pm
@@ -24,7 +24,7 @@ has tag => (
     is      => 'rw',
     isa     => 'Str',
     lazy    => 1,
-    default => '_',
+    default => sub {(shift)->bucket->name}
 );
 
 sub to_link_header {
@@ -33,9 +33,9 @@ sub to_link_header {
     my $link = '';
     $link .= '</';
     $link .= $client->prefix . '/';
-    $link .= $self->bucket . '/';
+    $link .= $self->bucket->name . '/';
     $link .= $self->key . '>; riaktag="';
-    $link .= self->tag . '"';
+    $link .= $self->tag . '"';
     return $link;
 }
 
-- 
cgit v1.2.3