diff options
Diffstat (limited to 'lib/Net/Riak')
-rw-r--r-- | lib/Net/Riak/Link.pm | 6 |
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; } |