From f0d6302bbc5fd477236e3c5ea2193a17ef405bba Mon Sep 17 00:00:00 2001
From: Jon Robertson <jonrober@stanford.edu>
Date: Tue, 14 Oct 2014 17:06:43 -0700
Subject: Added rename support for file objects

File objects now support a rename command, which will rename the object
and move the file to the right spot in the file store under its new
name.

Change-Id: I10ea2b8012586d69f0894905cfba54a738f3e418
---
 perl/lib/Wallet/Server.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl/lib/Wallet/Server.pm')

diff --git a/perl/lib/Wallet/Server.pm b/perl/lib/Wallet/Server.pm
index 34075ed..f6ea342 100644
--- a/perl/lib/Wallet/Server.pm
+++ b/perl/lib/Wallet/Server.pm
@@ -255,7 +255,7 @@ sub rename {
     my $host = $self->{host};
 
     # Currently we only can rename file objects.
-    if (type ne 'file') {
+    if ($type ne 'file') {
         $self->error ('rename is only supported for file objects');
         return;
     }
@@ -282,7 +282,7 @@ sub rename {
     }
 
     # Rename the object.
-    $object = eval { $class->rename ($type, $name, $schema, $user, $host) };
+    eval { $object->rename ($new_name, $schema, $user, $host) };
     if ($@) {
         $self->error ($@);
         return;
-- 
cgit v1.2.3