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 a3e28e3e681aa288e9cbb1c62ea4c4e0da7c5549..cab72866d6d889e0d1676c4b9de0c2e568ebd68e 100644 (file)
--- 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},