From 779c20457fe63a1f8a7fc694965b7b4fa00a77ff Mon Sep 17 00:00:00 2001
From: bluhm <bluhm@openbsd.org>
Date: Fri, 12 Jun 2026 12:56:39 +0000
Subject: [PATCH] Prevent negative array index in function get_kev().  Valid
 arguments for i are [1,1000].  This function is unused, but fix it anyway.

---
 devel/p5-IO-KQueue/Makefile                |  1 +
 devel/p5-IO-KQueue/patches/patch-KQueue_xs | 14 ++++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 devel/p5-IO-KQueue/patches/patch-KQueue_xs

diff --git a/devel/p5-IO-KQueue/Makefile b/devel/p5-IO-KQueue/Makefile
index c8636c4bb8c..81b452c546b 100644
--- a/devel/p5-IO-KQueue/Makefile
+++ b/devel/p5-IO-KQueue/Makefile
@@ -1,6 +1,7 @@
 COMMENT =	perl interface to the BSD kqueue system call
 
 DISTNAME =	IO-KQueue-0.39
+REVISION =	0
 
 CATEGORIES =	devel
 
diff --git a/devel/p5-IO-KQueue/patches/patch-KQueue_xs b/devel/p5-IO-KQueue/patches/patch-KQueue_xs
new file mode 100644
index 00000000000..485dd7d203b
--- /dev/null
+++ b/devel/p5-IO-KQueue/patches/patch-KQueue_xs
@@ -0,0 +1,14 @@
+Prevent negative array index.  Array has 1000 elements, i-1 is the index.
+
+Index: KQueue.xs
+--- KQueue.xs.orig
++++ KQueue.xs
+@@ -143,7 +143,7 @@ get_kev(kq, i)
+   PREINIT:
+     dXSTARG;
+   CODE:
+-    if (i < 0 || i >= 1000) {
++    if (i <= 0 || i > 1000) {
+         croak("Invalid kevent id: %d", i);
+     }
+