On Mon Jan 02 02:04:41 2012, ANDK wrote:
Show quoted text
Attached patch should fix it.
Nicholas Clark
--- lib/IO/Ppoll.xs~ 2010-01-29 12:48:43.000000000 +0100
+++ lib/IO/Ppoll.xs 2012-01-02 19:15:38.000000000 +0100
@@ -183,8 +183,12 @@
if(SvOK(sigmask)) {
/* This code borrowed from POSIX.xs */
+#if PERL_VERSION > 15 || PERL_VERSION == 15 && PERL_SUBVERSION > 2
+ sigmask_real = (sigset_t *) SvPV_nolen(SvRV(sigmask));
+#else
IV tmp = SvIV((SV*)SvRV(sigmask));
sigmask_real = INT2PTR(sigset_t*, tmp);
+#endif
}
else
sigmask_real = NULL;