Blame SOURCES/expect-5.43.0-log_file.patch
|
 |
3b9cf2 |
diff -up expect-5.44.1.15/exp_log.c.orig expect-5.44.1.15/exp_log.c
|
|
|
3b9cf2 |
--- expect-5.44.1.15/exp_log.c.orig 2010-03-08 15:45:20.581378309 +0100
|
|
|
3b9cf2 |
+++ expect-5.44.1.15/exp_log.c 2010-03-08 15:45:38.838398279 +0100
|
|
|
3b9cf2 |
@@ -374,7 +374,7 @@ expDiagChannelOpen(interp,filename)
|
|
|
3b9cf2 |
Tcl_DStringAppend(&tsdPtr->diagFilename,filename,-1);
|
|
|
3b9cf2 |
}
|
|
|
3b9cf2 |
|
|
|
3b9cf2 |
- tsdPtr->diagChannel = Tcl_OpenFileChannel(interp,newfilename,"a",0777);
|
|
|
3b9cf2 |
+ tsdPtr->diagChannel = Tcl_OpenFileChannel(interp,newfilename,"a",0666);
|
|
|
3b9cf2 |
if (!tsdPtr->diagChannel) {
|
|
|
3b9cf2 |
Tcl_DStringFree(&tsdPtr->diagFilename);
|
|
|
3b9cf2 |
return TCL_ERROR;
|