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);
+     }
+