Commit d83a6690 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor tweak to AM CreateSliver so that it handles the way

GeniCMV2::CreateSliver now forks a child to to the startsliver.
parent f6574db8
#!/usr/bin/perl -wT
#
# GENIPUBLIC-COPYRIGHT
# Copyright (c) 2008-2010 University of Utah and the Flux Group.
# Copyright (c) 2008-2011 University of Utah and the Flux Group.
# All rights reserved.
#
package GeniAM;
......@@ -224,6 +224,11 @@ sub CreateSliver()
};
my $response = GeniCMV2::CreateSliver($create_args);
if (!ref($response)) {
# This is cause GeniCMV2::CreateSliver does a fork, and the child
# returns plain status code, which should go to our caller.
return $response;
}
if (GeniResponse::IsError($response)) {
# The create failed, so return the response.
return $response
......
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