From c98f0afec523de68a1492cdc78a2838446af7d6a Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 7 Apr 2023 23:50:04 +0200
Subject: [PATCH] avoid redundant newline trailer in tcp responses

---
 src/xschem.tcl | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 3a8393c0..84a0dd21 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -1270,11 +1270,7 @@ proc xschem_getdata {sock} {
   rename puts {}
   rename ::tcl::puts puts
   puts "tcp--> $tclcmd_puts"
-  if {![regexp {\n$} $tclcmd_puts]} {
-    set xschem_server_getdata(res,$sock) "$tclcmd_puts\n" 
-  } else {
-    set xschem_server_getdata(res,$sock) "$tclcmd_puts" 
-  }
+  set xschem_server_getdata(res,$sock) "$tclcmd_puts"
   puts -nonewline $sock "$xschem_server_getdata(res,$sock)"
   flush $sock
   close $sock ;# server closes