--- IO-AIO/AIO.xs	2008/09/30 17:03:53	1.129
+++ IO-AIO/AIO.xs	2008/10/22 18:15:36	1.133
@@ -113,8 +113,6 @@
 
 static int req_invoke    (eio_req *req);
 #define EIO_FINISH(req)  req_invoke (req)
-static void aio_grp_feed (eio_req *grp);
-#define EIO_FEED(req)    aio_grp_feed (req)
 static void req_destroy  (eio_req *grp);
 #define EIO_DESTROY(req) req_destroy (req)
 
@@ -520,6 +518,10 @@
 #ifndef _WIN32
         newCONSTSUB (stash, "S_IFIFO",  newSViv (S_IFIFO));
 #endif
+        newCONSTSUB (stash, "S_IFIFO",  newSViv (S_IFIFO));
+        newCONSTSUB (stash, "SYNC_FILE_RANGE_WAIT_BEFORE", newSViv (EIO_SYNC_FILE_RANGE_WAIT_BEFORE));
+        newCONSTSUB (stash, "SYNC_FILE_RANGE_WRITE"      , newSViv (EIO_SYNC_FILE_RANGE_WRITE));
+        newCONSTSUB (stash, "SYNC_FILE_RANGE_WAIT_AFTER" , newSViv (EIO_SYNC_FILE_RANGE_WAIT_AFTER));
 
         create_respipe ();
 
@@ -600,6 +602,23 @@
 }
 
 void
+aio_sync_file_range (SV *fh, SV *offset, SV *nbytes, IV flags, SV *callback=&PL_sv_undef)
+	PROTOTYPE: $$$$;$
+	PPCODE:
+{
+        dREQ;
+
+        req->type = EIO_SYNC_FILE_RANGE;
+        req->sv1  = newSVsv (fh);
+        req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh)));
+        req->offs = SvVAL64 (offset);
+        req->size = SvVAL64 (nbytes);
+        req->int2 = flags;
+
+        REQ_SEND (req);
+}
+
+void
 aio_close (SV *fh, SV *callback=&PL_sv_undef)
 	PROTOTYPE: $;$
 	PPCODE:
@@ -1135,7 +1154,8 @@
 	CODE:
 {
         SvREFCNT_dec (grp->sv2);
-        grp->sv2 = newSVsv (callback);
+        grp->sv2  = newSVsv (callback);
+        grp->feed = aio_grp_feed;
 
         if (grp->int2 <= 0)
           grp->int2 = 2;