Commit 5f984a6d authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor bug fix to DeleteSliver(); unlock slice on errors.

parent 1ba99a77
......@@ -645,6 +645,7 @@ sub DeleteSliver($)
my $authority = GeniCertificate->LoadFromFile($EMULAB_PEMFILE);
if (!defined($authority)) {
print STDERR " Could not load $EMULAB_PEMFILE\n";
return GeniResponse->Create(GENIRESPONSE_ERROR);
......@@ -652,12 +653,16 @@ sub DeleteSliver($)
# We need the user to sign the new ticket to.
my $user = GeniCM::CreateUserFromCertificate($credential);
return $user
if (GeniResponse::IsResponse($user));
if (GeniResponse::IsResponse($user)) {
return $user;
my $response = GeniCM::DeleteSliverAux($credential, $impotent, 1);
return $response
if (GeniResponse::IsResponse($response));
if (GeniResponse::IsResponse($response)) {
return $response;
# In the v2 API, return a new ticket for the resources
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment