summary refs log tree commit diff
path: root/lib/Net/Riak/Link.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Net/Riak/Link.pm')
-rw-r--r--lib/Net/Riak/Link.pm6
1 files changed, 3 insertions, 3 deletions
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;
 }