Differences From Artifact [a0815bc9ee]:

• File unix/tclUnixTest.c — part of check-in [bf5ec8f76b] at 2017-05-03 12:09:19 on branch semver — merge trunk (user: jan.nijtmans size: 20506) [more...]

To Artifact [f7afd15e3c]:

• File unix/tclUnixTest.c — part of check-in [c92a5c4373] at 2018-12-11 20:02:40 on branch trunk — Merge 8.7 In test-cases, don't load Tcltest package if it isn't actually used. Another round of size_t related improvements. Nothing functional. Also improve some comments. (user: jan.nijtmans size: 20495) [more...]

757
758
759
760
761
762
763
764
765
766
767
768
769
770
771

	Tcl_DString buffer;
	const char *translated;

	translated = Tcl_TranslateFileName(interp, Tcl_GetString(objv[i]), &buffer);
	if (translated == NULL) {
	    return TCL_ERROR;
	}
	if (chmod(translated, (unsigned) mode) != 0) {
	    Tcl_AppendResult(interp, translated, ": ", Tcl_PosixError(interp),
		    NULL);
	    return TCL_ERROR;
	}
	Tcl_DStringFree(&buffer);
    }
    return TCL_OK;

|

757
758
759
760
761
762
763
764
765
766
767
768
769
770
771

	Tcl_DString buffer;
	const char *translated;

	translated = Tcl_TranslateFileName(interp, Tcl_GetString(objv[i]), &buffer);
	if (translated == NULL) {
	    return TCL_ERROR;
	}
	if (chmod(translated, mode) != 0) {
	    Tcl_AppendResult(interp, translated, ": ", Tcl_PosixError(interp),
		    NULL);
	    return TCL_ERROR;
	}
	Tcl_DStringFree(&buffer);
    }
    return TCL_OK;