Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | more readable |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-5-branch |
Files: | files | file ages | folders |
SHA1: |
e39c97211d8127684481592d5532f93c |
User & Date: | jan.nijtmans 2012-06-14 07:32:54 |
Context
2012-06-19
| ||
14:57 | Plug memory leak, part of [Bug #3362446] check-in: 05b87bac69 user: jan.nijtmans tags: core-8-5-branch | |
2012-06-14
| ||
07:37 | more readable check-in: 29049e28d2 user: jan.nijtmans tags: trunk | |
07:32 | more readable check-in: e39c97211d user: jan.nijtmans tags: core-8-5-branch | |
07:27 | more readable check-in: a3e8c87e61 user: jan.nijtmans tags: core-8-4-branch | |
2012-06-12
| ||
12:35 | add test that triggered reporting of [Bug 3530230] check-in: 25c42cd3dc user: dkf tags: core-8-5-branch | |
Changes
Changes to library/dde/pkgIndex.tcl.
1 | if {![package vsatisfies [package provide Tcl] 8]} return | | | 1 2 3 4 5 6 7 | if {![package vsatisfies [package provide Tcl] 8]} return if {[info sharedlibextension] != ".dll"} return if {[info exists ::tcl_platform(debug)]} { package ifneeded dde 1.3.3 [list load [file join $dir tcldde13g.dll] dde] } else { package ifneeded dde 1.3.3 [list load [file join $dir tcldde13.dll] dde] } |
Changes to library/platform/shell.tcl.
︙ | ︙ | |||
183 184 185 186 187 188 189 | } else { # Success close $channel return [file normalize $newname] } } } | | | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | } else { # Success close $channel return [file normalize $newname] } } } if {$channel != ""} { return -code error "Failed to open a temporary file: $channel" } else { return -code error "Failed to find an unused temporary file name" } } proc ::platform::shell::DIR {} { |
︙ | ︙ |
Changes to library/reg/pkgIndex.tcl.
1 | if {![package vsatisfies [package provide Tcl] 8]} return | | | 1 2 3 4 5 6 7 8 9 | if {![package vsatisfies [package provide Tcl] 8]} return if {[info sharedlibextension] != ".dll"} return if {[info exists ::tcl_platform(debug)]} { package ifneeded registry 1.2.1 \ [list load [file join $dir tclreg12g.dll] registry] } else { package ifneeded registry 1.2.1 \ [list load [file join $dir tclreg12.dll] registry] } |