Tcl Source Code

Check-in [1cc0f68d7d]
Login

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

Overview
Comment:merge 8.5
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-12 | core-8-5-12-rc
Files: files | file ages | folders
SHA1: 1cc0f68d7dd1df4170cacb7fff5d81fdb78ab6a0
User & Date: dgp 2012-07-25 15:03:02
Context
2012-07-27
16:26
merge release to dev check-in: 4e1195ef70 user: dgp tags: core-8-5-branch
2012-07-25
15:03
merge 8.5 Closed-Leaf check-in: 1cc0f68d7d user: dgp tags: core-8-5-12, core-8-5-12-rc
14:56
update changes check-in: 972b3415a1 user: dgp tags: core-8-5-branch
11:18
merge 8.5 check-in: b741cf9ae4 user: dgp tags: core-8-5-12-rc
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to changes.

7632
7633
7634
7635
7636
7637
7638
7639
7640
7641
7642
7643
7644
7645
7646
7647
7648
7649
7650
7651
7652

7653
7654
7655




7656
7657
7658
7659
=> dde 1.3.3

2012-05-17 (bug fix)[2964715] fix [glob] in Safe Base (fellows)

2012-05-17 (bug fix)[3106532] proper [switch -indexvar] values (fellows)
	*** POTENTIAL INCOMPATIBILITY ***

2012-06-21 (bug fix)[3362446] [registry keys] failure (nijtmans)
=> registry 1.2.2

2012-06-25 (bug fix)[3537605] [encoding dirs a b] error message (fellows)

2012-06-25 (bug fix)[3024359] crash when multi-thread concurrent [file system]
and Tcl_FSMountsChanged(). (porter)

2012-06-29 (bug fix)[3536888] fix locale guessing (oehlmann,nijtmans)
=> msgcat 1.4.5

2012-07-05 (bug fix)[1189293] make "<<" redirect binary safe (porter)

2012-07-11 (bug fix)[3362446] [registry keys] failure (nijtmans)


2012-07-16 (bug fix)[3544683] reentrant syscalls on BSD (cassoff,fellows)





Many revisions to better support a Cygwin environment (nijtmans)

--- Released 8.5.12, July 20, 2011 --- See ChangeLog for details ---








<
<
<











>



>
>
>
>


|

7632
7633
7634
7635
7636
7637
7638



7639
7640
7641
7642
7643
7644
7645
7646
7647
7648
7649
7650
7651
7652
7653
7654
7655
7656
7657
7658
7659
7660
7661
=> dde 1.3.3

2012-05-17 (bug fix)[2964715] fix [glob] in Safe Base (fellows)

2012-05-17 (bug fix)[3106532] proper [switch -indexvar] values (fellows)
	*** POTENTIAL INCOMPATIBILITY ***




2012-06-25 (bug fix)[3537605] [encoding dirs a b] error message (fellows)

2012-06-25 (bug fix)[3024359] crash when multi-thread concurrent [file system]
and Tcl_FSMountsChanged(). (porter)

2012-06-29 (bug fix)[3536888] fix locale guessing (oehlmann,nijtmans)
=> msgcat 1.4.5

2012-07-05 (bug fix)[1189293] make "<<" redirect binary safe (porter)

2012-07-11 (bug fix)[3362446] [registry keys] failure (nijtmans)
=> registry 1.2.2

2012-07-16 (bug fix)[3544683] reentrant syscalls on BSD (cassoff,fellows)

2012-07-24 (bug fix) stop mem corruption in stacked channel events (max,porter)

2012-07-25 (bug fix)[3546275] [auto_execok] search match [exec] (danckaert)

Many revisions to better support a Cygwin environment (nijtmans)

--- Released 8.5.12, July 27, 2011 --- See ChangeLog for details ---

Changes to library/init.tcl.

694
695
696
697
698
699
700


701
702
703


704
705
706
707
708
709
710
711
712

    foreach var {PATH Path path} {
	if {[info exists env($var)]} {
	    append path ";$env($var)"
	}
    }



    foreach dir [split $path {;}] {
	# Skip already checked directories
	if {[info exists checked($dir)] || ($dir eq {})} { continue }


	set checked($dir) {}
	foreach ext $execExtensions {
	    set file [file join $dir ${name}${ext}]
	    if {[file exists $file] && ![file isdirectory $file]} {
		return [set auto_execs($name) [list $file]]
	    }
	}
    }
    return ""







>
>
|
|
|
>
>
|
<







694
695
696
697
698
699
700
701
702
703
704
705
706
707
708

709
710
711
712
713
714
715

    foreach var {PATH Path path} {
	if {[info exists env($var)]} {
	    append path ";$env($var)"
	}
    }

    foreach ext $execExtensions {
	unset -nocomplain checked
	foreach dir [split $path {;}] {
	    # Skip already checked directories
	    if {[info exists checked($dir)] || ($dir eq {})} {
		continue
	    }
	    set checked($dir) {}

	    set file [file join $dir ${name}${ext}]
	    if {[file exists $file] && ![file isdirectory $file]} {
		return [set auto_execs($name) [list $file]]
	    }
	}
    }
    return ""