summaryrefslogtreecommitdiffstats
path: root/library/dde/pkgIndex.tcl
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-10-06 16:37:17 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-10-06 16:37:17 (GMT)
commit757296c3e92ae4145012c8081d89063fd84fac6d (patch)
tree9f4375cdd57e3a0d6be40c390fc31ca0d3834d4b /library/dde/pkgIndex.tcl
parentc9460f40ff148c46d7f52e7b5d7d7d16f32d64e1 (diff)
downloadtcl-757296c3e92ae4145012c8081d89063fd84fac6d.zip
tcl-757296c3e92ae4145012c8081d89063fd84fac6d.tar.gz
tcl-757296c3e92ae4145012c8081d89063fd84fac6d.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: 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
Diffstat (limited to 'library/dde/pkgIndex.tcl')
-rw-r--r--library/dde/pkgIndex.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/dde/pkgIndex.tcl b/library/dde/pkgIndex.tcl
index d8d2d6e..d069046 100644
--- a/library/dde/pkgIndex.tcl
+++ b/library/dde/pkgIndex.tcl
@@ -1,7 +1,7 @@
if {![package vsatisfies [package provide Tcl] 8]} {return}
if {[string compare $::tcl_platform(platform) windows]} {return}
if {[info exists ::tcl_platform(debug)]} {
- package ifneeded dde 1.3 [list load [file join $dir tcldde13g.dll] dde]
+ package ifneeded dde 1.3.1 [list load [file join $dir tcldde13g.dll] dde]
} else {
- package ifneeded dde 1.3 [list load [file join $dir tcldde13.dll] dde]
+ package ifneeded dde 1.3.1 [list load [file join $dir tcldde13.dll] dde]
}