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

Comparing IO-AIO/AIO.xs (file contents):
Revision 1.270 by root, Thu Nov 29 21:51:22 2018 UTC vs.
Revision 1.271 by root, Fri Dec 28 12:43:00 2018 UTC

 #include <errno.h>
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
+#include "perliol.h"
 #if !defined mg_findext
 # define mg_findext(sv,type,vtbl) mg_find (sv, type)
 #endif
 void
 aio_close (SV *fh, SV *callback = &PL_sv_undef)
 	PPCODE:
 {
+        dREQ;
 	int fd = s_fileno_croak (fh, 0);
-        dREQ;
+        /* partially duplicate logic in s_fileno */
+	SvGETMAGIC (fh);
+	if (SvROK (fh))
+	  {
+	    fh = SvRV (fh);
+	    SvGETMAGIC (fh);
+	  }
+        if (SvTYPE (fh) == SVt_PVGV)
+          {
+            /* perl filehandle */
+            PerlIOUnix_refcnt_inc (fd);
+            do_close ((GV *)fh, 1);
-        req->type = EIO_DUP2;
+            req->type = EIO_CLOSE;
-        req->int1 = close_fd;
+            req->int1 = fd;
-        req->sv2  = newSVsv (fh);
+            req->sv2  = newSVsv (fh);
+          }
+        else
+          {
+            /* fd number */
+            req->type = EIO_DUP2;
+            req->int1 = close_fd;
+            req->sv2  = newSVsv (fh);
-        req->int2 = fd;
+            req->int2 = fd;
+          }
         REQ_SEND;
 }
 void

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