From 4779849cd41d269f05af69c17b2dae6bb551b3de Mon Sep 17 00:00:00 2001
From: Romain Beauxis <toots@rastageeks.org>
Date: Mon, 18 Mar 2024 11:40:09 -0500
Subject: [PATCH] Fix segfault

---
 CHANGES         | 1 +
 src/cry_stubs.c | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/CHANGES b/CHANGES
index 3468cbb..70ea650 100644
--- a/CHANGES
+++ b/CHANGES
@@ -2,6 +2,7 @@
 =====
 * Raise a proper error when non-blocking connection
   fails.
+* Fix poll segfault.
 
 1.0.2 (2024-01-08)
 ======
diff --git a/src/cry_stubs.c b/src/cry_stubs.c
index 5246fa1..54f392f 100644
--- a/src/cry_stubs.c
+++ b/src/cry_stubs.c
@@ -109,7 +109,7 @@ CAMLprim value caml_cry_poll(value _read, value _write, value _err,
       nwrite++;
     }
     if (fds[n].revents & POLLERR) {
-      Store_field(_pread, nerr, Val_fd(fds[n].fd));
+      Store_field(_perr, nerr, Val_fd(fds[n].fd));
       nerr++;
     }
   }