Bug fix; return error when createsliver fails to create the sliver.

protogeni/lib/GeniCMV2.pm.in

@@ -327,6 +327,7 @@ sub CreateSliver($)
 	if (defined($slice)) {
 	    GeniCM::CleanupDeadSlice($slice, 1);
 	}
+	return $response;
     }
     my ($sliver_credential, $sliver_manifest) = @{ $response->{'value'} };