sanchayanmaity/minix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix perl build hanging on pipe

Browse source 
Change-Id: Ic1ff95f45c6082b9310b27783190ce8f92c2afad
This commit is contained in:
Lionel Sambuc 2014-04-03 15:53:43 +02:00
parent 013226c417
commit ac9fa699bd
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
servers/vfs/pipe.c
View file

@ -226,6 +226,7 @@ int notouch /* check only */
r = SUSPEND;
/* If need be, activate sleeping writers. */
/* We ignore notouch voluntary here. */
if (susp_count > 0)
release(vp, VFS_WRITE, susp_count);
}
@ -397,7 +398,7 @@ int count; /* max number of processes to release */
* select; a close() doesn't always warrant it.
*/
if(pipe_check(f, op == VFS_READ ? READING : WRITING,
f->filp_flags & ~O_NONBLOCK, 1, 1) == SUSPEND) {
f->filp_flags, 1, 1) != EAGAIN) {
continue;
}
select_callback(f, selop);