1 files changed, 25 insertions, 0 deletions
diff --git a/gnu/libexec/uucp/libunix/isfork.c b/gnu/libexec/uucp/libunix/isfork.c
new file mode 100644
index 000000000000..f067d07552cd
--- /dev/null
+++ b/gnu/libexec/uucp/libunix/isfork.c
@@ -0,0 +1,25 @@
+/* isfork.c 
+   Retry fork several times before giving up.  */
+
+#include "uucp.h"
+
+#include "sysdep.h"
+
+#include <errno.h>
+
+pid_t
+ixsfork ()
+{
+  int i;
+  pid_t iret;
+
+  for (i = 0; i < 10; i++)
+    {
+      iret = fork ();
+      if (iret >= 0 || errno != EAGAIN)
+	return iret;
+      sleep (5);
+    }
+
+  return iret;
+}