Browse files

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

  • Loading branch information...
1 parent 677d8b1 commit db0962804dd9af59acea1b1fa1ce32df54c87aeb @badlop badlop committed Feb 22, 2011
Showing with 4 additions and 1 deletion.
  1. +4 −1 src/pg2_backport.erl
View
5 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},

0 comments on commit db09628

Please sign in to comment.