mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-05-02 06:00:53 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fix bug in flisten (Win32): PeekNamedPipe returns nonzero in case of success.

Browse source
This commit is contained in:
goffioul 2005-03-11 08:28:30 +00:00
parent 47b05be175
commit b8e4936a1f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -1861,7 +1861,7 @@ flisten(FILE *fp)
break;
case FILE_TYPE_PIPE: {
DWORD dw;
if (PeekNamedPipe(hnd, NULL, 0, NULL, &dw, NULL) == 0)
if (PeekNamedPipe(hnd, NULL, 0, NULL, &dw, NULL))
return (dw > 0 ? ECL_LISTEN_AVAILABLE : ECL_LISTEN_NO_CHAR);
else if (GetLastError() == ERROR_BROKEN_PIPE)
return ECL_LISTEN_EOF;