From 5aabf4de2484b1a65bad989f89cb8bd7c9383b45 Mon Sep 17 00:00:00 2001
From: Michael Ortmann <41313082+michaelortmann@users.noreply.github.com>
Date: Sun, 18 Feb 2024 14:55:28 +0100
Subject: [PATCH] Fix format string

Found by: michaelortmann
Patch by: michaelortmann
---
 src/tclhash.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tclhash.c b/src/tclhash.c
index 86bd17633..5128821ba 100644
--- a/src/tclhash.c
+++ b/src/tclhash.c
@@ -738,7 +738,7 @@ static int trigger_bind(const char *proc, const char *param, char *mask)
 
   if(proc && proc[0] != '*') { /* proc[0] != '*' excludes internal binds */
 #ifdef DEBUG_CONTEXT
-    snprintf(last_bind_called, sizeof last_bind_called, proc);
+    strlcpy(last_bind_called, proc, sizeof last_bind_called);
 #endif
     debug1("triggering bind %s", proc);
     r = getrusage(RUSAGE_SELF, &ru1);