Differences From Artifact [64745e98ac]:

• File unix/tclUnixFile.c — part of check-in [47248c347c] at 2011-10-13 12:10:35 on branch bug-1224888 — Lash-up to try to deal with [Bug 1224888]. (user: dkf size: 21800)

To Artifact [88b45ced11]:

• File unix/tclUnixFile.c — part of check-in [9856078e30] at 2011-10-13 12:16:54 on branch bug-1224888 — A little more resilience. (user: dkf size: 21865)

78
79
80
81
82
83
84


85

86
87
88
89
90
91
92

	if (readlink(buf2,buf1,PATH_MAX) > 0 && buf1[0] == '/') {
	    name = buf1;
	    goto gotName;
	}
    }
#endif
#ifndef NO_DLFCN_H


    sym = dlsym(RTLD_DEFAULT, "_main");

    if (sym != NULL && dladdr(sym, &dlinfoBuffer)
	    && dlinfoBuffer.dli_fname[0] == '/') {
	name = dlinfoBuffer.dli_fname;
	goto gotName;
    }
#endif

>
>
|
>

78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

	if (readlink(buf2,buf1,PATH_MAX) > 0 && buf1[0] == '/') {
	    name = buf1;
	    goto gotName;
	}
    }
#endif
#ifndef NO_DLFCN_H
    sym = dlsym(RTLD_DEFAULT, "main");
    if (sym == NULL) {
	sym = dlsym(RTLD_DEFAULT, "_main");
    }
    if (sym != NULL && dladdr(sym, &dlinfoBuffer)
	    && dlinfoBuffer.dli_fname[0] == '/') {
	name = dlinfoBuffer.dli_fname;
	goto gotName;
    }
#endif