From 52b039b7ded47e8184ea58c6369a94824cb925d5 Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@sunet.se>
Date: Fri, 14 Feb 2020 12:41:13 +0100
Subject: Fix a bug in balance config settings

---
 p11p-daemon/src/p11p_config.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'p11p-daemon')

diff --git a/p11p-daemon/src/p11p_config.erl b/p11p-daemon/src/p11p_config.erl
index 13723ce..3c2b641 100644
--- a/p11p-daemon/src/p11p_config.erl
+++ b/p11p-daemon/src/p11p_config.erl
@@ -184,7 +184,7 @@ new_token({Name, Settings}) ->
       }.
 
 balance([], NModules) ->
-    balance([0], NModules - 1);
+    [0 || _ <- lists:seq(1, NModules)];
 balance(List, NModules) ->
     List ++ [0 || _ <- lists:seq(1, NModules - length(List))].
 
@@ -240,7 +240,7 @@ tokens_init_test_() ->
 		       {token,"vtoken1",
 			12000,
 			3,
-			[-1],
+			[-1,-1],
 			#{"bogusmod1_0" =>
 			      {p11module,"bogusmod1_0", "/path/to/bogusmod1_0", []},
 			  "bogusmod1_1" =>
-- 
cgit v1.1