From d3ae2332347c3aee0a39b73ab63b98176717caec Mon Sep 17 00:00:00 2001
From: Vadim Belman <vrurg@lflat.org>
Date: Sat, 6 Mar 2021 18:50:25 -0500
Subject: [PATCH] Use `zmq_die` in poll_one

This would provide user code with more information about errors.
---
 lib/Net/ZMQ4/Poll.pm6 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Net/ZMQ4/Poll.pm6 b/lib/Net/ZMQ4/Poll.pm6
index c9a747e..1e5d434 100644
--- a/lib/Net/ZMQ4/Poll.pm6
+++ b/lib/Net/ZMQ4/Poll.pm6
@@ -3,6 +3,7 @@ use Net::ZMQ4::Pollitem;
 use NativeCall;
 
 unit module Net::ZMQ4::Poll;
+use Net::ZMQ4::Util;
 
 # ZMQ_EXPORT int zmq_poll (zmq_pollitem_t *items, int nitems, long timeout);
 my sub zmq_poll(Net::ZMQ4::Pollitem, int32, int64 --> int32) is native('zmq',v5) { * }
@@ -20,6 +21,6 @@ my sub zmq_poll(Net::ZMQ4::Pollitem, int32, int64 --> int32) is native('zmq',v5)
 our sub poll_one(Net::ZMQ4::Socket $socket, $timeout, Bool :$in, Bool :$out, Bool :$err) is export {
     my Net::ZMQ4::Pollitem $pollitem .= new: :$socket, :$in, :$out, :$err;
     my $ret = zmq_poll($pollitem, 1, $timeout);
-    if $ret < 0 { die "zmq_poll returned error: $ret" }
+    if $ret < 0 { zmq_die }
     return $pollitem.revents;
 }