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

diff --git a/src/pg2_backport.erl b/src/pg2_backport.erl
index 353bef0eb7bec346d807dc2f724d0019c0119fc9..faa775524d998a3365c3d1dda645fa4b8f91a356 100644 (file)
--- a/src/pg2_backport.erl
+++ b/src/pg2_backport.erl
@@ -207,9 +207,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},