Fix load of null pointer

Found by: 0_o I am EMPTY, mister EMPTY, ZarTek-Creole Patch by: michaelortmann Fixes: #1389
eggheads · Feb 13, 2023 · 23386ce · 23386ce
1 parent a602590
commit 23386ce
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/net.c b/src/net.c
@@ -1700,6 +1700,12 @@ char *traced_natip(ClientData cd, Tcl_Interp *irp, EGG_CONST char *name1,
   int r;
   struct in_addr ia;
 
+  /* Recover trace in case of unset. */
+  if (flags & TCL_TRACE_DESTROYED) {
+    Tcl_TraceVar2(irp, name1, name2, TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, traced_natip, cd);
+    return NULL;
+  }
+
   value = Tcl_GetVar2(irp, name1, name2, TCL_GLOBAL_ONLY);
   if (*value) {
     r = inet_pton(AF_INET, value, &ia);