diff options
author | dgp <dgp@users.sourceforge.net> | 2004-10-06 17:09:25 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2004-10-06 17:09:25 (GMT) |
commit | 0d4af99b94a36cc28d86bad10ef3062bce884961 (patch) | |
tree | 5af0b8830bd4c01dc58e1c1f96a33223bb194443 /library/reg | |
parent | 757296c3e92ae4145012c8081d89063fd84fac6d (diff) | |
download | tcl-0d4af99b94a36cc28d86bad10ef3062bce884961.zip tcl-0d4af99b94a36cc28d86bad10ef3062bce884961.tar.gz tcl-0d4af99b94a36cc28d86bad10ef3062bce884961.tar.bz2 |
* generic/tclBasic.c:
* generic/tclBinary.c:
* generic/tclCmdAH.c:
* generic/tclCmdIL.c:
* generic/tclCmdMZ.c:
* generic/tclCompExpr.c:
* generic/tclDictObj.c:
* generic/tclEncoding.c:
* generic/tclExecute.c:
* generic/tclFCmd.c:
* generic/tclHistory.c:
* generic/tclIndexObj.c:
* generic/tclInterp.c:
* generic/tclIO.c:
* generic/tclIOCmd.c:
* generic/tclNamesp.c:
* generic/tclObj.c:
* generic/tclPkg.c:
* generic/tclResult.c:
* generic/tclScan.c:
* generic/tclTimer.c:
* generic/tclTrace.c:
* generic/tclUtil.c:
* generic/tclVar.c:
* unix/tclUnixFCmd.c:
* unix/tclUnixPipe.c:
* win/tclWinDde.c:
* win/tclWinFCmd.c:
* win/tclWinPipe.c:
* win/tclWinReg.c:
It is a poor practice to directly set or append to the value
of the objResult of an interp, because that value might be
shared, and in that circumstance a Tcl_Panic() will be the
result. Searched for example of this practice and replaced
with safer alternatives, often using the Tcl_AppendResult()
routine that dkf just rehabilitated.
* library/dde/pkgIndex.tcl: Bump to dde 1.3.1
* library/reg/pkgIndex.tcl: Bump to registry 1.1.5
Diffstat (limited to 'library/reg')
-rwxr-xr-x | library/reg/pkgIndex.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/reg/pkgIndex.tcl b/library/reg/pkgIndex.tcl index 61c1d94..3aed06f 100755 --- a/library/reg/pkgIndex.tcl +++ b/library/reg/pkgIndex.tcl @@ -1,9 +1,9 @@ if {![package vsatisfies [package provide Tcl] 8]} {return} if {[string compare $::tcl_platform(platform) windows]} {return} if {[info exists ::tcl_platform(debug)]} { - package ifneeded registry 1.1.4 \ + package ifneeded registry 1.1.5 \ [list load [file join $dir tclreg11g.dll] registry] } else { - package ifneeded registry 1.1.4 \ + package ifneeded registry 1.1.5 \ [list load [file join $dir tclreg11.dll] registry] } |