1 files changed, 11 insertions, 0 deletions
diff --git a/src/socket.c b/src/socket.c
index 2b2bc52..0a0a3a9 100644
--- a/src/socket.c
+++ b/src/socket.c
@@ -559,9 +559,20 @@ enable_socket (int fd)
     FD_SET (fd, &fdset[PIES_EVT_EX]);
 }
 
+static int (*pies_pause_hook) (void);
+
+void
+pies_set_hook (int (*f) (void))
+{
+  pies_pause_hook = f;
+}
+
 void
 pies_pause (void)
 {
+  if (pies_pause_hook && pies_pause_hook ())
+    return;
+    
   if (fd_max == -1)
     calc_fd_max ();