Overview
| Artifact ID: | 2661427b91c15c34c9f02294f4f92c7779c36b268221d7d5305a47b7afdf8d58 (Awaiting Moderator Approval) |
|---|---|
| Ticket: | 34a589f660c1f0bafb5b8963da4e200b2934f91b
could not load ftpd in Tcl 9.0 |
| User & Date: | anonymous 2025-07-22 17:28:44 |
Changes
- assignee changed to: "nobody"
- closer changed to: "nobody"
- comment changed to:
In Tcl 8.6.16: % package require ftpd 1.4.1 In Tcl 9.0.2: % package require ftpd can't read "tcl_platform(user)": no such variable % namespace eval ::ftpd {variable contact;set contact "$::tcl_platform(user)@[info hostname]"} % package require ftpd 1.4.1 From help of global: This command has no effect unless executed in the context of a proc body. With the following modification the script completes successfully: --- ftpd.tcl.org 2024-10-24 18:47:54.000000000 +0900 +++ ftpd.tcl 2025-07-23 02:19:48.243683100 +0900 @@ -20,8 +20,7 @@ variable contact if {![info exists contact]} { - global tcl_platform - set contact "$tcl_platform(user)@[info hostname]" + set contact "$::tcl_platform(user)@[info hostname]" } variable cwd - foundin changed to: "ftpd 1.4.1"
- is_private changed to: "0"
- login: "anonymous"
- mimetype: "text/plain"
- priority changed to: "5 Medium"
- resolution changed to: "None"
- severity changed to: "Minor"
- status changed to: "Open"
- submitter changed to: "anonymous"
- subsystem changed to: "ftpd"
- title changed to: "could not load ftpd in Tcl 9.0"
- type changed to: "Bug"