FIX: output buffer tail extension must be done only for UDP

related to: Oldes/Rebol-issues#1803
Oldes · Jul 19, 2022 · b4d35eb · b4d35eb
1 parent c5e159b
commit b4d35eb
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/core/p-net.c b/src/core/p-net.c
@@ -216,8 +216,11 @@ enum Transport_Types {
 
  //Print("(max read length %d)", sock->length);
  result = OS_DO_DEVICE(sock, RDC_READ); // recv can happen immediately
- if (result < 0) Trap_Port(RE_READ_ERROR, port, sock->error);
- VAL_TAIL(arg) += sock->actual;
+ if (GET_FLAG(sock->modes, RST_UDP && result == 0))
+ VAL_TAIL(arg) += sock->actual;
+ if (result < 0)
+ Trap_Port(RE_READ_ERROR, port, sock->error);
+
  break;
 
  case A_WRITE: