… | |
… | |
19 | #define PERL_VERSION_ATLEAST(a,b,c) \ |
19 | #define PERL_VERSION_ATLEAST(a,b,c) \ |
20 | (PERL_REVISION > (a) \ |
20 | (PERL_REVISION > (a) \ |
21 | || (PERL_REVISION == (a) \ |
21 | || (PERL_REVISION == (a) \ |
22 | && (PERL_VERSION > (b) \ |
22 | && (PERL_VERSION > (b) \ |
23 | || (PERL_VERSION == (b) && PERL_SUBVERSION >= (c))))) |
23 | || (PERL_VERSION == (b) && PERL_SUBVERSION >= (c))))) |
|
|
24 | |
|
|
25 | #ifndef PERL_MAGIC_ext |
|
|
26 | # define PERL_MAGIC_ext '~' |
|
|
27 | #endif |
24 | |
28 | |
25 | #if !PERL_VERSION_ATLEAST (5,6,0) |
29 | #if !PERL_VERSION_ATLEAST (5,6,0) |
26 | # ifndef PL_ppaddr |
30 | # ifndef PL_ppaddr |
27 | # define PL_ppaddr ppaddr |
31 | # define PL_ppaddr ppaddr |
28 | # endif |
32 | # endif |
… | |
… | |
472 | struct pollfd pfd; |
476 | struct pollfd pfd; |
473 | |
477 | |
474 | pfd.fd = s_epipe_fd (epp); |
478 | pfd.fd = s_epipe_fd (epp); |
475 | pfd.events = POLLIN; |
479 | pfd.events = POLLIN; |
476 | |
480 | |
477 | return poll (&pfd, 1, 0); |
481 | return poll (&pfd, 1, -1); |
478 | #endif |
482 | #endif |
479 | } |
483 | } |
480 | |
484 | |
481 | #endif |
485 | #endif |
482 | |
486 | |