[Tcl-bugs] [ tcl-Bugs-791751 ] missing "direct" variable in pkg_mkIndex

[SourceForge.net <no...@so...>]

Bugs item #791751, was opened at 2003-08-20 07:35
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=791751&group_id=10894

Category: 38. Package Manager
Group: 8.4.4
Status: Open
Resolution: None
Priority: 5
Submitted By: Marco Maggi (marcomaggi)
Assigned to: Don Porter (dgp)
Summary: missing "direct" variable in pkg_mkIndex

Initial Comment:
With TCL 8.4.4 there's an error in [pkg_mkIndex].
Create the file:

  # proof.tcl --
  package provide boo
  proc baa {} { return }
  # end

and the file:

  # hurtme.tcl --
  pkg_mkIndex -direct -verbose . ./proof.tcl
  # end

then:

  $ tclsh hurtme.tcl

shows the error:

  can't read "::tcl::direct": no such variable

  The problem is on line 371 of "package.tcl":

  if { $doVerbose } {
    if { !$::tcl::direct } {
      tclLog "commands provided were $cmds"
    }
    ...
  }

"tcl::direct" exists in the $c interpreter, not in
the main interpreter. Maybe it was supposed to be
"$direct", if I modify it that way it seems to
work.

  I see that in TCL 8.4.3 the inner [if] was not
present.



----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=791751&group_id=10894