[Tcl-bugs] [ tcl-Bugs-708218 ] pkgIndex.tcl broken for latest dde and reg

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

Bugs item #708218, was opened at 2003-03-22 17:07
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=708218&group_id=10894

Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
>Assigned to: Kevin B KENNY (kennykb)
Summary: pkgIndex.tcl broken for latest dde and reg

Initial Comment:

if {[info exists tcl_platform(debug)]} {
    package ifneeded dde 1.2.1 [list load [file join 
$dir tcldde12g.dll] dde]
} else {
    package ifneeded dde 1.2.1 [list load [file join 
$dir tcldde12.dll] dde]
}

should really be

if {[info exists ::tcl_platform(debug)]} {
    package ifneeded dde 1.2.1 [list load [file join 
$dir tcldde12g.dll] dde]
} else {
    package ifneeded dde 1.2.1 [list load [file join 
$dir tcldde12.dll] dde]
}

the same goes for the registry package as these 
scripts are not evaluated in the global scope.

the current consequence is that it is impossible to 
load the dde and registry packages from a debug 
build (using the stock source code).

JJM


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

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