Differences From Artifact [5a8870e5fb]:

• File generic/tclIOUtil.c — part of check-in [ce638746db] at 2024-09-13 11:57:41 on branch bug-02d5d65d70adab97 — TclFSCwdIsNative may return wrong result when cwd is not initialized in TSD (if pwd/cd never called for this thread) (user: sebres size: 133325)

To Artifact [dda4085de6]:

• File generic/tclIOUtil.c — part of check-in [70020277fb] at 2024-09-13 12:07:55 on branch bug-02d5d65d70adab97 — because the normalization is very expensive (see [02d5d65d70adab97]), don't invoke it for native or absolute paths, so aviod normalization "just to ensure we return the correct error messages under some circumstances" (user: sebres size: 133532)

2233
2234
2235
2236
2237
2238
2239
2240

2241
2242



2243

2244
2245
2246
2247
2248
2249
2250

				 * what modes to create it? */
{
    const Tcl_Filesystem *fsPtr;
    Tcl_Channel retVal = NULL;

    /*
     * We need this just to ensure we return the correct error messages under
     * some circumstances.

     */




    if (Tcl_FSGetNormalizedPath(interp, pathPtr) == NULL) {

	return NULL;
    }

    fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
    if (fsPtr != NULL && fsPtr->openFileChannelProc != NULL) {
	int mode, seekFlag, binary;

|
>


>
>
>
|
>

2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255

				 * what modes to create it? */
{
    const Tcl_Filesystem *fsPtr;
    Tcl_Channel retVal = NULL;

    /*
     * We need this just to ensure we return the correct error messages under
     * some circumstances (relative paths only), so because the normalization 
     * is very expensive, don't invoke it for native or absolute paths.
     */

    if (
	!TclFSCwdIsNative() &&
	Tcl_FSGetPathType(pathPtr) != TCL_PATH_ABSOLUTE &&
	Tcl_FSGetNormalizedPath(interp, pathPtr) == NULL
    ) {
	return NULL;
    }

    fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
    if (fsPtr != NULL && fsPtr->openFileChannelProc != NULL) {
	int mode, seekFlag, binary;