# New Ticket Created by Mark Glines
# Please include the string: [perl #43671]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=43671 >
This code doesn't actually get compiled on my system, because linux has
EWOULDBLOCK.
Can anyone name a UNIX-like platform which doesn't have EWOULDBLOCK?
Because I bet that platform needs more regular parrot-smoking.
Mark
=== src/io/io_unix.c
==================================================================
--- src/io/io_unix.c (revision 21342)
+++ src/io/io_unix.c (local)
@@ -913,7 +913,7 @@
case EWOULDBLOCK:
goto AGAIN;
# else
- case EGAIN:
+ case EAGAIN:
goto AGAIN;
# endif
case ECONNRESET:
