Updating gen_cluster with abeccui's changes

auser · Jul 21, 2010 · 0e0b329 · 0e0b329
1 parent 55b7fc7
commit 0e0b329
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/gen_cluster.erl b/src/gen_cluster.erl
@@ -117,9 +117,13 @@ run(Mod, Msg) ->
   case ballot_run(Mod, Msg) of
     {error, no_winner} ->
       % Force a run
-      P = randomly_pick(gproc:lookup_pids({p,g,cluster_key(Mod)}), []),
-      call(P, Msg, infinity),
-      P;
+      case gproc:lookup_pids({p,g,cluster_key(Mod)}) of
+        [] -> {error, no_nodes};
+        Nodes ->
+          P = randomly_pick(Nodes, []),
+          call(P, Msg, infinity),
+          P
+      end;
     {error, _} = T -> T;
     {ok, _, _} = Good -> Good
   end.