summaryrefslogtreecommitdiffstats
path: root/library/reg
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-10-06 17:09:25 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-10-06 17:09:25 (GMT)
commit0d4af99b94a36cc28d86bad10ef3062bce884961 (patch)
tree5af0b8830bd4c01dc58e1c1f96a33223bb194443 /library/reg
parent757296c3e92ae4145012c8081d89063fd84fac6d (diff)
downloadtcl-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-xlibrary/reg/pkgIndex.tcl4
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]
}