From 04eb1c6641ce505c48da04d7756d17abea537418 Mon Sep 17 00:00:00 2001 From: Christophe Romain Date: Thu, 10 Jan 2008 17:38:24 +0000 Subject: Force PEP parent node to be [] SVN Revision: 1144 --- src/mod_pubsub/nodetree_default.erl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/mod_pubsub/nodetree_default.erl b/src/mod_pubsub/nodetree_default.erl index a7360bc21..3c8a63e6b 100644 --- a/src/mod_pubsub/nodetree_default.erl +++ b/src/mod_pubsub/nodetree_default.erl @@ -144,11 +144,15 @@ create_node(Key, Node, Type, Owner, Options) -> {[], true}; _ -> Parent = lists:sublist(Node, length(Node) - 1), - (Parent == []) orelse + case Parent of + [] -> + {[], true}; + _ -> case mnesia:read({pubsub_node, {Key, Parent}}) of [] -> {Parent, false}; _ -> {Parent, true} end + end end, case ParentExists of true -> -- cgit v1.2.3