| … | |
… | |
| 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 | |
