--- IO-AIO/AIO.xs	2016/01/21 23:04:46	1.238
+++ IO-AIO/AIO.xs	2016/02/23 19:42:43	1.239
@@ -1298,6 +1298,46 @@
 }
 
 void
+aio_ioctl (SV *fh, unsigned long request, SV8 *arg, SV *callback = &PL_sv_undef)
+        ALIAS:
+           aio_ioctl = EIO_IOCTL
+           aio_fcntl = EIO_FCNTL
+        PPCODE:
+{
+        int fd = s_fileno_croak (fh, 0);
+        char *svptr;
+
+        if (SvPOK (arg) || !SvNIOK (arg))
+          {
+            STRLEN svlen;
+            /* perl uses IOCPARM_LEN for fcntl, so we do, too */
+#ifdef IOCPARM_LEN
+            STRLEN need = IOCPARM_LEN (request);
+#else
+            STRLEN need = 256;
+#endif
+
+            if (svlen < need)
+              svptr = SvGROW (arg, need + 1);
+          }
+        else
+          svptr = (char *)SvIV (arg);
+
+        {
+          dREQ;
+
+          req->type = ix;
+          req->sv1  = newSVsv (fh);
+          req->int1 = fd;
+          req->int2 = (long)request;
+          req->sv2  = SvREFCNT_inc (arg);
+          req->ptr2 = svptr;
+
+          REQ_SEND;
+        }
+}
+
+void
 aio_readlink (SV8 *pathname, SV *callback = &PL_sv_undef)
         ALIAS:
            aio_readlink = EIO_READLINK