From db0962804dd9af59acea1b1fa1ce32df54c87aeb Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 22 Feb 2011 23:43:38 +0100
Subject: [PATCH] Tweak pg2_backport.erl to work with Erlang older than R13A
 (EJAB-1349)

---
 src/pg2_backport.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/pg2_backport.erl b/src/pg2_backport.erl
index 353bef0eb..faa775524 100644
--- 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},