From 87a24f6a5c9a032baf64b2a3427c899c5e8632e7 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erix.ericsson.se>
Date: Wed, 17 Nov 2010 16:55:43 +0100
Subject: Update so that non tuple return values are not filtered out

---
 lib/common_test/src/ct_suite_callback.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/common_test/src/ct_suite_callback.erl b/lib/common_test/src/ct_suite_callback.erl
index ab5c005a43..124397b222 100644
--- a/lib/common_test/src/ct_suite_callback.erl
+++ b/lib/common_test/src/ct_suite_callback.erl
@@ -136,8 +136,8 @@ call([], Config, _Meta, CBs) ->
     Config.
 
 remove(Key,List) when is_list(List) ->
-    [Conf || Conf <- List,
-	     element(1, Conf) =/= Key];
+    [Conf || Conf <- List, is_tuple(Conf) =:= false
+		 orelse element(1, Conf) =/= Key];
 remove(_, Else) ->
     Else.
 
-- 
cgit v1.2.3