Tcl Source Code

Check-in [bac3f9b139]
Login

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

Overview
Comment:Bug Fix: EnvTraceProc() MUST always return NULL to indicate success.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: bac3f9b1394f8eebc83f67a57948a6f4d68dcaf0
User & Date: jan.nijtmans 2013-11-20 11:20:32
References
2014-04-08
14:39 Closed ticket [f3ee78aedb]: Env variables unset in slave appear to be defined but are not accessible by master plus 5 other changes artifact: cf12bd1bc8 user: jan.nijtmans
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
2013-11-20
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
2013-11-19
11:50
Some formatting check-in: 1ea2b5393f 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
624
     */

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

	if (value == NULL) {
	    return (char *) "no such variable";
	}
	Tcl_SetVar2(interp, name1, name2, value, 0);
	Tcl_DStringFree(&valueString);
    }

    /*
     * For unset traces, let TclUnsetEnv do all the work.







|







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) {
	    return NULL;
	}
	Tcl_SetVar2(interp, name1, name2, value, 0);
	Tcl_DStringFree(&valueString);
    }

    /*
     * For unset traces, let TclUnsetEnv do all the work.