diff options
| author | Badlop <badlop@process-one.net> | 2011-02-22 23:43:38 +0100 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2011-02-22 23:44:45 +0100 |
| commit | db0962804dd9af59acea1b1fa1ce32df54c87aeb (patch) | |
| tree | 4188134b1c23527b2537a124f771677b95e819ef | |
| parent | Add support for '@online@' Shared Roster Group (thanks to Martin Langhoff)(EJ... (diff) | |
Tweak pg2_backport.erl to work with Erlang older than R13A (EJAB-1349)
| -rw-r--r-- | src/pg2_backport.erl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/pg2_backport.erl b/src/pg2_backport.erl index 353bef0e..faa77552 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}, |