From d46e58aa37987353f8eaca8e37ffef95f7105126 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sat, 30 Dec 2023 21:47:24 +0000
Subject: missing goto

---
 unix/tclUnixChan.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index 132f690..fc2280a 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.c
@@ -1985,6 +1985,7 @@ Tcl_MakeFileChannel(
     if (isatty(fd)) {
 	channelTypePtr = &ttyChannelType;
 	snprintf(channelName, sizeof(channelName), "serial%d", fd);
+	goto final;
     } else
 #endif /* SUPPORTS_TTY */
     if (TclOSfstat(fd, &buf) == 0 && S_ISSOCK(buf.st_mode)) {
@@ -1998,10 +1999,10 @@ Tcl_MakeFileChannel(
 			|| sockaddr.sa_family == AF_INET6)) {
 	    return (Tcl_Channel)TclpMakeTcpClientChannelMode(INT2PTR(fd), mode);
 	}
-	channelTypePtr = &fileChannelType;
-	snprintf(channelName, sizeof(channelName), "file%d", fd);
     }
-
+    channelTypePtr = &fileChannelType;
+    snprintf(channelName, sizeof(channelName), "file%d", fd);
+final:
     fsPtr = (TtyState *)ckalloc(sizeof(TtyState));
     fsPtr->fileState.fd = fd;
     fsPtr->fileState.validMask = mode | TCL_EXCEPTION;
-- 
cgit v0.12