--- IO-AIO/AIO.xs	2006/06/24 19:14:04	1.41
+++ IO-AIO/AIO.xs	2006/07/21 07:35:31	1.42
@@ -1034,6 +1034,29 @@
 	send_req (req);
 }
 
+#if 0
+
+# undocumented, because it does not cancel active requests
+void
+cancel_most_requests ()
+	PROTOTYPE:
+        CODE:
+{
+	aio_req *req;
+
+        pthread_mutex_lock (&reqlock);
+          for (req = reqs; req; req = req->next)
+             req->flags |= 1;
+        pthread_mutex_unlock (&reqlock);
+
+        pthread_mutex_lock (&reslock);
+          for (req = ress; req; req = req->next)
+             req->flags |= 1;
+        pthread_mutex_unlock (&reslock);
+}
+
+#endif
+
 void
 flush ()
 	PROTOTYPE: