Tcl Source Code

Check-in [f6c1c6b491]
Login

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

Overview
Comment:... and don't break env-5.3 and env-5.5 test-cases.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f6c1c6b4916aade8f7177b46644b0403840acad2
User & Date: jan.nijtmans 2013-11-20 11:34:29
References
2013-11-20
11:57 Ticket [219226ffff] fail to do array search on env status still Closed with 5 other changes artifact: 254217b96a user: jan.nijtmans
Context
2016-02-19
10:49
Proposed fix for [9b47029467631832]: testing existence of env(some_thing) destroys traces. Was the c... check-in: 5e24c6a9db user: jan.nijtmans tags: bug-9b47029467631832
2013-11-20
12:58
Fix env-5.1 test-case on Cygwin (and probably other platforms which don't have iso8859-1 as system-e... check-in: 1f318a23a1 user: jan.nijtmans tags: trunk
11:34
... and don't break env-5.3 and env-5.5 test-cases. check-in: f6c1c6b491 user: jan.nijtmans tags: trunk
11:20
Bug Fix: EnvTraceProc() MUST always return NULL to indicate success. check-in: bac3f9b139 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclEnv.c.

610
611
612
613
614
615
616

617
618
619
620
621
622
623
     */

    if (flags & TCL_TRACE_READS) {
	Tcl_DString valueString;
	const char *value = TclGetEnv(name2, &valueString);

	if (value == NULL) {

	    return NULL;
	}
	Tcl_SetVar2(interp, name1, name2, value, 0);
	Tcl_DStringFree(&valueString);
    }

    /*







>







610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
     */

    if (flags & TCL_TRACE_READS) {
	Tcl_DString valueString;
	const char *value = TclGetEnv(name2, &valueString);

	if (value == NULL) {
	    Tcl_UnsetVar2(interp, name1, name2, 0);
	    return NULL;
	}
	Tcl_SetVar2(interp, name1, name2, value, 0);
	Tcl_DStringFree(&valueString);
    }

    /*