Tweak pg2_backport.erl to work with Erlang older than R13A (EJAB-1349)

2011-02-22 23:43:38 +01:00 · 2011-02-22 23:43:38 +01:00 · 62a4e20ae7
parent e0bda563e6
commit 62a4e20ae7
1 changed files with 4 additions and 1 deletions
--- a/src/pg2_backport.erl
+++ b/src/pg2_backport.erl
@ -253,9 +253,12 @@ terminate(_Reason, _S) ->
 store(List) ->
    _ = [(assure_group(Name)
          andalso
-          [join_group(Name, P) || P <- Members -- group_members(Name)]) ||
+          store2(Name, Members)) ||
            [Name, Members] <- List],
    ok.
+store2(Name, Members) ->
+    [join_group(Name, P) || P <- Members -- group_members(Name)],
+    true.

 assure_group(Name) ->
    Key = {group, Name},