From 09fa4a0ca73f6b0f73ffaa11d3b0f6e49a1a3a39 Mon Sep 17 00:00:00 2001
From: Christophe Romain <christophe.romain@process-one.net>
Date: Thu, 10 Jan 2008 17:38:24 +0000
Subject: [PATCH] Force PEP parent node to be []

SVN Revision: 1144
---
 src/mod_pubsub/nodetree_default.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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 ->