Issue #537: remove trailing newlines on all arguments that use proc c…

…mdargs
TACC · Oct 27, 2021 · 85b0ae7 · 85b0ae7
1 parent 13a4e17
commit 85b0ae7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/README.new b/README.new
@@ -51,6 +51,5 @@ W.I.P:
             * Change MT:lookup_w_userName(userName) to support partial version string matches.
               This is an update to Issue #518 fix in 8.5.7
             * Modify test.yml to support running "make busted"
-
-
-
+	    * Issue #537: Remove all trailing newlines from TCL arguments
+
diff --git a/src/tcl2lua.tcl b/src/tcl2lua.tcl
@@ -591,6 +591,7 @@ proc cmdargs { cmd args } {
     global g_outputA
     foreach arg $args {
         set val [doubleQuoteEscaped $arg]
+	set val [string trimright $val "\r\n"]
         lappend cmdArgsL "\"$val\""
     }
     if {[info exists cmdArgsL]} {