Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Oops. string match does not accept regular expressions. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | bug-e5f3dfc055c |
| Files: | files | file ages | folders |
| SHA3-256: |
f3ae895f6d8238af94c260fa3523f7d7 |
| User & Date: | culler 2025-06-10 00:59:15.848 |
| Original User & Date: | marcc 2025-06-10 00:59:15.848 |
Context
|
2025-06-10
| ||
| 01:34 | Fix [e5f3dfc055c]: Tcllib 2.0 installer fails with default Tcl build Leaf check-in: 20d3697afb user: culler tags: trunk, main | |
| 00:59 | Oops. string match does not accept regular expressions. Closed-Leaf check-in: f3ae895f6d user: culler tags: bug-e5f3dfc055c | |
|
2025-06-09
| ||
| 02:45 | fix [e5f3dfc055c]: Tcllib 2.0 installer fails with default Tcl build check-in: 4e7d192896 user: culler tags: bug-e5f3dfc055c | |
Changes
Changes to installer.tcl.
| ︙ | ︙ | |||
290 291 292 293 294 295 296 297 298 |
# tclkit. Detect this and derive the location from the
# location of the executable itself for that case.
if {[string match [info nameofexecutable]* [info library]]} {
# Starkit
set libdir [file join [file dirname [file dirname [info nameofexecutable]]] lib]
} else {
# Unwrapped.
foreach path $::auto_path {
| > > | | | 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 |
# tclkit. Detect this and derive the location from the
# location of the executable itself for that case.
if {[string match [info nameofexecutable]* [info library]]} {
# Starkit
set libdir [file join [file dirname [file dirname [info nameofexecutable]]] lib]
} else {
puts "$::auto_path"
# Unwrapped.
foreach path $::auto_path {
puts $path
if {[string match "*zipfs:*" $path]} {
continue
}
set libdir $path
break
}
}
puts "libdir is $libdir"
set basedir [file dirname $libdir]
set bindir [file join $basedir bin]
if {[string compare $tcl_platform(platform) windows] == 0} {
set mandir {}
set htmldir [file join $basedir ${package_name}_doc]
} else {
|
| ︙ | ︙ |