expect-5.43.0-log_file.patch

   1 diff -up expect-5.44.1.15/exp_log.c.orig expect-5.44.1.15/exp_log.c
   2 --- expect-5.44.1.15/exp_log.c.orig     2010-03-08 15:45:20.581378309 +0100
   3 +++ expect-5.44.1.15/exp_log.c  2010-03-08 15:45:38.838398279 +0100
   4 @@ -374,7 +374,7 @@ expDiagChannelOpen(interp,filename)
   5         Tcl_DStringAppend(&tsdPtr->diagFilename,filename,-1);
   6      }
   7
   8 -    tsdPtr->diagChannel = Tcl_OpenFileChannel(interp,newfilename,"a",0777);
   9 +    tsdPtr->diagChannel = Tcl_OpenFileChannel(interp,newfilename,"a",0666);
  10      if (!tsdPtr->diagChannel) {
  11         Tcl_DStringFree(&tsdPtr->diagFilename);
  12         return TCL_ERROR;