stdlib: handle unix line endings correctly

serload: longer pause between sending files
This commit is contained in:
slederer 2025-04-13 23:08:55 +02:00
parent 3526060a19
commit d91d6ab8e7
2 changed files with 2 additions and 2 deletions

View file

@ -1352,7 +1352,7 @@ var aChar:char;
begin
repeat
aChar := freadchar(aFile);
until (aChar = #13) or eof(aFile);
until eoln(aFile); (* eoln checks for cr, lf and eof *)
(*
If it is a disk file, try to read the