From 75e82a98316746d68d3f65dafd946510d21e4d5e Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 15 Apr 2025 11:22:33 +0000
Subject: Missing Tcl_DStringFree()

---
 win/tclWinTest.c | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/win/tclWinTest.c b/win/tclWinTest.c
index 22a7156..c97eb66 100644
--- a/win/tclWinTest.c
+++ b/win/tclWinTest.c
@@ -606,12 +606,10 @@ TestplatformChmod(
 	Tcl_Free(aceEntry[i].pSid);
     }
 
-    if (res != 0) {
-	return res;
+    if (res == 0) {
+	/* Run normal chmod command */
+	res = _chmod(Tcl_DStringValue(&ds), pmode);
     }
-
-    /* Run normal chmod command */
-    res = _chmod(Tcl_DStringValue(&ds), pmode);
     Tcl_DStringFree(&ds);
     return res;
 }
-- 
cgit v0.12