Blame expect-5.43.0-log_file.patch
|
 |
f1e4923 |
diff -up expect5.45.4/exp_log.c.orig expect5.45.4/exp_log.c
|
|
|
f1e4923 |
--- expect5.45.4/exp_log.c.orig 2018-02-02 20:15:52.000000000 +0100
|
|
|
f1e4923 |
+++ expect5.45.4/exp_log.c 2018-06-27 10:46:53.065655463 +0200
|
|
|
f1e4923 |
@@ -499,7 +499,7 @@ expLogChannelOpen(interp,filename,append
|
|
|
f1e4923 |
Tcl_DStringAppend(&tsdPtr->logFilename,filename,-1);
|
|
 |
a64d87f |
}
|
|
|
a64d87f |
|
|
|
f1e4923 |
- tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0777);
|
|
|
f1e4923 |
+ tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0666);
|
|
|
f1e4923 |
if (!tsdPtr->logChannel) {
|
|
|
f1e4923 |
Tcl_DStringFree(&tsdPtr->logFilename);
|
|
|
a64d87f |
return TCL_ERROR;
|