[Tcllib-bugs] [Tcllib] (anonymous) tkt (New): could not load ftpd in Tcl 9.0

[<no...@tc...>]

Automated mail by fx, on behalf of no...@tc...

Ticket Change [2661427b91c15c34c9f02294f4f92c7779c36b268221d7d5305a47b7afdf8d58]
  [could not load ftpd in Tcl 9.0]
  By      anonymous
  For     Tcllib
  On      2025-07-22T17:28:44.060
  Details https://core.tcl-lang.org/tcllib/tinfo?name=2661427b91c15c34c9f02294f4f92c7779c36b268221d7d5305a47b7afdf8d58
  Ticket  https://core.tcl-lang.org/tcllib/tktview/34a589f660c1f0bafb5b8963da4e200b2934f91b

Changed Fields
  assignee:   nobody
  closer:     nobody
  comment:    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:    ftpd 1.4.1
  is_private: 0
  login:      anonymous
  priority:   5 Medium
  resolution: None
  severity:   Minor
  status:     Open
  submitter:  anonymous
  subsystem:  ftpd
  title:      could not load ftpd in Tcl 9.0
  type:       Bug

------------------------------------------------------------
See Tcl/Tk development @ http://core.tcl-lang.org/
------------------------------------------------------------