From e6df8e0d924fbf003e53cb1fe01c53cd1f67ca5f Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Mon, 14 Jun 2010 18:35:13 +0400
Subject: [PATCH] pthread functions do not set errno

---
 link.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/link.c b/link.c
index 1a66447..f4cb89c 100644
--- a/link.c
+++ b/link.c
@@ -1300,7 +1300,7 @@ CAMLprim value ml_init (value sock_v)
 
     ret = pthread_create (&state.thread, NULL, mainloop, NULL);
     if (ret) {
-        unix_error (ret, "pthread_create", Nothing);
+        errx (1, "pthread_create: %s", strerror (errno));
     }
 
     CAMLreturn (Val_unit);
-- 
2.11.4.GIT