[ViewVC] Diff of: cvs/IO-AIO/AIO.xs

Comparing IO-AIO/AIO.xs (file contents):
Revision 1.271 by root, Fri Dec 28 12:43:00 2018 UTC vs.
Revision 1.274 by root, Sun Mar 10 12:16:48 2019 UTC

 #if _POSIX_MEMLOCK || _POSIX_MEMLOCK_RANGE || _POSIX_MAPPED_FILES
 # include <sys/mman.h>
 #endif
+#if HAVE_SYS_UIO_H
+# include <sys/uio.h>
+#endif
 #if HAVE_ST_XTIMENSEC
 # define ATIMENSEC PL_statcache.st_atimensec
 # define MTIMENSEC PL_statcache.st_mtimensec
 # define CTIMENSEC PL_statcache.st_ctimensec
 #elif HAVE_ST_XTIMESPEC
 #endif
               }
             else
               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);
             /* FALLTHROUGH */
 void
 aio_close (SV *fh, SV *callback = &PL_sv_undef)
 	PPCODE:
 {
+	int fd = s_fileno_croak (fh, 0);
         dREQ;
-	int fd = s_fileno_croak (fh, 0);
+#if 0
         /* partially duplicate logic in s_fileno */
 	SvGETMAGIC (fh);
 	if (SvROK (fh))
 	  {
             PerlIOUnix_refcnt_inc (fd);
             do_close ((GV *)fh, 1);
             req->type = EIO_CLOSE;
             req->int1 = fd;
-            req->sv2  = newSVsv (fh);
+            /*req->sv2  = newSVsv (fh);*/ /* since we stole the fd, no need to keep the fh */
           }
         else
+#endif
           {
             /* fd number */
             req->type = EIO_DUP2;
             req->int1 = close_fd;
             req->sv2  = newSVsv (fh);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines