Tcl Source Code

Check-in [d6eb82a174]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Merge 8.7
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: d6eb82a1745b056f742c981c63fa19102119910320b03e4fdbbe19bf57693ea7
User & Date: jan.nijtmans 2019-03-07 22:03:56
Context
2019-03-08
14:56
merge 8.7 check-in: 839cfa7059 user: dgp tags: trunk
2019-03-07
22:03
Merge 8.7 check-in: d6eb82a174 user: jan.nijtmans tags: trunk
21:59
Fix gcc compiler warning check-in: c6f4b50fbf user: jan.nijtmans tags: core-8-branch
14:20
(core-8-branch merge) Fix automatic pkgIndex generation for multiplatform installs. check-in: fa308cbee6 user: apnadkarni tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclEnv.c.

115
116
117
118
119
120
121

122
123
124
125
126
127
128
129
    if (environ[0] != NULL) {
	int i;

	Tcl_MutexLock(&envMutex);
	for (i = 0; environ[i] != NULL; i++) {
	    Tcl_Obj *obj1, *obj2;

	    char *p1, *p2;

	    p1 = Tcl_ExternalToUtfDString(NULL, environ[i], -1, &envString);
	    p2 = strchr(p1, '=');
	    if (p2 == NULL) {
		/*
		 * This condition seem to happen occasionally under some
		 * versions of Solaris, or when encoding accidents swallow the






>
|







115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
    if (environ[0] != NULL) {
	int i;

	Tcl_MutexLock(&envMutex);
	for (i = 0; environ[i] != NULL; i++) {
	    Tcl_Obj *obj1, *obj2;
	    const char *p1;
	    char *p2;

	    p1 = Tcl_ExternalToUtfDString(NULL, environ[i], -1, &envString);
	    p2 = strchr(p1, '=');
	    if (p2 == NULL) {
		/*
		 * This condition seem to happen occasionally under some
		 * versions of Solaris, or when encoding accidents swallow the