From aeff9674aa069ed02c2ea0ab2d05a85dc1ced4a7 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Wed, 29 Aug 2007 06:26:26 +0000
Subject: Fix the store implementation to take the right arguments.

---
 perl/Wallet/Server.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl/Wallet')

diff --git a/perl/Wallet/Server.pm b/perl/Wallet/Server.pm
index c4132d3..6a95e06 100644
--- a/perl/Wallet/Server.pm
+++ b/perl/Wallet/Server.pm
@@ -219,11 +219,11 @@ sub get {
 # Store new data in an object, or returns undef and sets the internal error if
 # the object can't be found or if the user isn't authorized.
 sub store {
-    my ($self, $name, $type) = @_;
+    my ($self, $name, $type, $data) = @_;
     my $object = $self->retrieve ($name, $type);
     return undef unless defined $object;
     return undef unless $self->acl_check ($object, 'store');
-    return $object->get ($self->{user}, $self->{host});
+    return $object->store ($data, $self->{user}, $self->{host});
 }
 
 # Return a human-readable description of the object's metadata, or returns
-- 
cgit v1.2.3