diff options
| author | Jon Robertson <jonrober@stanford.edu> | 2014-10-14 17:06:43 -0700 |
|---|---|---|
| committer | Jon Robertson <jonrober@stanford.edu> | 2014-10-27 15:48:19 -0700 |
| commit | f0d6302bbc5fd477236e3c5ea2193a17ef405bba (patch) | |
| tree | 96d33fac89d71d512bea389abc4272343adcbaa3 /perl/lib/Wallet/Server.pm | |
| parent | 80004a08e0580c25965ae37f602db1970157ddfb (diff) | |
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
Diffstat (limited to 'perl/lib/Wallet/Server.pm')
| -rw-r--r-- | perl/lib/Wallet/Server.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |