Tcl Source Code

Artifact 318c29074ca3ca14abeb8764c2b82014d6fbb082:

Attachment "patch-unix_tclUnixChan_c-DStringFree" to ticket [888777ffff] added by stwo 2004-02-02 06:41:26.

---

$OpenBSD$
--- unix/tclUnixChan.c.orig	2004-02-01 13:06:49.000000000 -0800
+++ unix/tclUnixChan.c	2004-02-01 13:08:59.000000000 -0800
@@ -2289,6 +2289,8 @@ TcpGetOptionProc(instanceData, interp, o
 
 		Tcl_ExternalToUtfDString(NULL, hostEntPtr->h_name, -1, &ds);
 		Tcl_DStringAppendElement(dsPtr, Tcl_DStringValue(&ds));
+
+		Tcl_DStringFree(&ds);
 	    } else {
 		Tcl_DStringAppendElement(dsPtr, inet_ntoa(peername.sin_addr));
 	    }
@@ -2335,6 +2337,8 @@ TcpGetOptionProc(instanceData, interp, o
 
 		Tcl_ExternalToUtfDString(NULL, hostEntPtr->h_name, -1, &ds);
 		Tcl_DStringAppendElement(dsPtr, Tcl_DStringValue(&ds));
+
+		Tcl_DStringFree(&ds);
 	    } else {
 		Tcl_DStringAppendElement(dsPtr, inet_ntoa(sockname.sin_addr));
 	    }