--- IO-AIO/AIO.xs	2019/01/02 16:32:57	1.272
+++ IO-AIO/AIO.xs	2019/03/04 10:28:38	1.273
@@ -819,6 +819,12 @@
               PUSHs (sv_result);
             break;
 
+#if 0
+          case EIO_CLOSE:
+            PerlIOUnix_refcnt_dec (req->int1);
+            break;
+#endif
+
           case EIO_DUP2: /* EIO_DUP2 actually means aio_close(), so fudge result value */
             if (req->result > 0)
               SvIV_set (sv_result, 0);
@@ -1474,9 +1480,9 @@
 aio_close (SV *fh, SV *callback = &PL_sv_undef)
 	PPCODE:
 {
-        dREQ;
 	int fd = s_fileno_croak (fh, 0);
-
+        dREQ;
+#if 0
         /* partially duplicate logic in s_fileno */
 	SvGETMAGIC (fh);
 
@@ -1497,6 +1503,7 @@
             /*req->sv2  = newSVsv (fh);*/ /* since we stole the fd, no need to keep the fh */
           }
         else
+#endif
           {
             /* fd number */
             req->type = EIO_DUP2;