I was too hopefull, http did not fully work

This commit is contained in:
Ruben Shekspir 2019-05-04 19:51:07 +04:00
parent ea7a66f84d
commit 9273e64fc6
2 changed files with 22 additions and 6 deletions

View file

@ -37,7 +37,7 @@ BEGIN
l := LEN(buf)-1;
f := 0;
r := Platform.Read(fd, p, l, f);
IF r > 0 THEN RETURN TRUE ELSE RETURN FALSE END
IF r >= 0 THEN RETURN TRUE ELSE RETURN FALSE END
END Read;
PROCEDURE Connect*(host, port: ARRAY OF CHAR; VAR conn: Socket): BOOLEAN;