From db2ea548def3585a73e7b0c98582e68dab510a09 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sat, 25 May 2024 09:09:52 +0000
Subject: Unneeded Tcl_DStringFree() (twice)

---
 generic/tclFileName.c | 1 -
 generic/tclPkg.c      | 1 -
 2 files changed, 2 deletions(-)

diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index 5679a6c..54c583a 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -1777,7 +1777,6 @@ TclGlob(
 	    if (c != '\0') {
 		tail++;
 	    }
-	    Tcl_DStringFree(&buffer);
 	} else {
 	    tail = pattern;
 	}
diff --git a/generic/tclPkg.c b/generic/tclPkg.c
index 6a42a38..c82cd4d 100644
--- a/generic/tclPkg.c
+++ b/generic/tclPkg.c
@@ -538,7 +538,6 @@ PkgRequireCoreStep1(
     Tcl_NRAddCallback(interp,
 	    PkgRequireCoreStep2, reqPtr, INT2PTR(reqc), (void *) reqv, NULL);
     Tcl_NREvalObj(interp, Tcl_DStringToObj(&command), TCL_EVAL_GLOBAL);
-    Tcl_DStringFree(&command);
     return TCL_OK;
 }
 
-- 
cgit v0.12