Posted to tcl by rmax at Wed Aug 03 19:39:13 GMT 2022view raw

  1. --- generic/tclIO.c
  2. +++ generic/tclIO.c
  3. @@ -4454,8 +4454,8 @@
  4. }
  5. }
  6. }
  7. - if ((flushed < total) && (GotFlag(statePtr, CHANNEL_UNBUFFERED) ||
  8. - (needNlFlush && GotFlag(statePtr, CHANNEL_LINEBUFFERED)))) {
  9. + if (((flushed < total) && (GotFlag(statePtr, CHANNEL_UNBUFFERED))) ||
  10. + (needNlFlush && GotFlag(statePtr, CHANNEL_LINEBUFFERED))) {
  11. if (FlushChannel(NULL, chanPtr, 0) != 0) {
  12. return -1;
  13. }
  14.