D 2025-07-22T17:28:44.060
J assignee nobody
J closer nobody
J comment In\sTcl\s8.6.16:\r\n%\spackage\srequire\sftpd\r\n1.4.1\r\n\r\nIn\sTcl\s9.0.2:\r\n%\spackage\srequire\sftpd\r\ncan't\sread\s"tcl_platform(user)":\sno\ssuch\svariable\r\n%\snamespace\seval\s::ftpd\s{variable\scontact;set\scontact\s"$::tcl_platform(user)@[info\shostname]"}\r\n%\spackage\srequire\sftpd\r\n1.4.1\r\n\r\nFrom\shelp\sof\sglobal:\r\nThis\scommand\shas\sno\seffect\sunless\sexecuted\sin\sthe\scontext\sof\sa\sproc\sbody.\r\n\r\nWith\sthe\sfollowing\smodification\sthe\sscript\scompletes\ssuccessfully:\r\n\r\n---\sftpd.tcl.org\s\s\s\s\s\s\s\s2024-10-24\s18:47:54.000000000\s+0900\r\n+++\sftpd.tcl\s\s\s\s2025-07-23\s02:19:48.243683100\s+0900\r\n@@\s-20,8\s+20,7\s@@\r\n\r\n\s\s\s\s\svariable\scontact\r\n\s\s\s\s\sif\s{![info\sexists\scontact]}\s{\r\n-\s\s\s\s\s\s\s\sglobal\stcl_platform\r\n-\s\s\s\s\s\s\sset\scontact\s"$tcl_platform(user)@[info\shostname]"\r\n+\s\s\s\s\s\s\sset\scontact\s"$::tcl_platform(user)@[info\shostname]"\r\n\s\s\s\s\s}\r\n\r\n\s\s\s\s\svariable\scwd
J foundin ftpd\s1.4.1
J is_private 0
J login anonymous
J mimetype text/plain
J priority 5\sMedium
J resolution None
J severity Minor
J status Open
J submitter anonymous
J subsystem ftpd
J title could\snot\sload\sftpd\sin\sTcl\s9.0
J type Bug
K 34a589f660c1f0bafb5b8963da4e200b2934f91b
U anonymous
Z e037980f6dd3a66ea3e3b6652d59da11