Tcl Library Source Code

Check-in [4e7d192896]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:fix [e5f3dfc055c]: Tcllib 2.0 installer fails with default Tcl build
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bug-e5f3dfc055c
Files: files | file ages | folders
SHA3-256: 4e7d1928965c9eb73ff126151f5e7b7bb74ccf22f4fbd3563041000672e1c9d0
User & Date: culler 2025-06-09 02:45:30.518
Original Comment: fix [e5f3dfc055c]: cllib 2.0 install fails with default Tcl build
Context
2025-06-10
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
2025-02-09
15:47
Fixed a typo in permutations proc. check-in: 61f5d52a95 user: arjenmarkus tags: trunk, main
Changes
Unified Diff Ignore Whitespace Patch
Changes to installer.tcl.
291
292
293
294
295
296
297

298


299

300
301
302
303
304
305
306
	# 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.

	    if {[catch {set libdir [lindex $::tcl_pkgPath end]}]} {


		set libdir [file dirname [info library]]

	    }
	}

	set basedir [file dirname $libdir]
	set bindir  [file join $basedir bin]

	if {[string compare $tcl_platform(platform) windows] == 0} {







>
|
>
>
|
>







291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
	# 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 {
		if {[string match "^//zipfs:" $path]} {
		    continue
		}
		set libdir $path
		break
	    }
	}

	set basedir [file dirname $libdir]
	set bindir  [file join $basedir bin]

	if {[string compare $tcl_platform(platform) windows] == 0} {