Check-in [3f0769cc0a]
Not logged in

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

Overview
Comment:handle auto_path setup proper when info nameofexecutable is empty
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3f0769cc0a01e35578b05ffd01eb0bc935026a08
User & Date: chw 2019-04-12 21:10:41
Context
2019-04-13
06:51
add tk upstream changes check-in: 7c76bac0d4 user: chw tags: trunk
2019-04-12
21:10
handle auto_path setup proper when info nameofexecutable is empty check-in: 3f0769cc0a user: chw tags: trunk
04:58
add tk upstream changes check-in: 9995508acd user: chw tags: trunk
Changes

Changes to jni/tcl/library/init.tcl.

48
49
50
51
52
53
54

55
56
57
58

59
60
61
62
63
64
65
namespace eval tcl {
    variable Dir
    foreach Dir [list $::tcl_library [file dirname $::tcl_library]] {
	if {$Dir ni $::auto_path} {
	    lappend ::auto_path $Dir
	}
    }

    set Dir [file join [file dirname [file dirname \
	    [info nameofexecutable]]] lib]
    if {$Dir ni $::auto_path} {
	lappend ::auto_path $Dir

    }
    catch {
	foreach Dir $::tcl_pkgPath {
	    if {$Dir ni $::auto_path} {
		lappend ::auto_path $Dir
	    }
	}







>
|
|
|
|
>







48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
namespace eval tcl {
    variable Dir
    foreach Dir [list $::tcl_library [file dirname $::tcl_library]] {
	if {$Dir ni $::auto_path} {
	    lappend ::auto_path $Dir
	}
    }
    if {[info nameofexecutable] ne ""} {
	set Dir [file join [file dirname [file dirname \
		[info nameofexecutable]]] lib]
	if {$Dir ni $::auto_path} {
	    lappend ::auto_path $Dir
	}
    }
    catch {
	foreach Dir $::tcl_pkgPath {
	    if {$Dir ni $::auto_path} {
		lappend ::auto_path $Dir
	    }
	}