summaryrefslogtreecommitdiff
path: root/devel/p5-EV/files
diff options
context:
space:
mode:
Diffstat (limited to 'devel/p5-EV/files')
-rw-r--r--devel/p5-EV/files/patch-libev_ev.c14
-rw-r--r--devel/p5-EV/files/patch-typemap17
2 files changed, 31 insertions, 0 deletions
diff --git a/devel/p5-EV/files/patch-libev_ev.c b/devel/p5-EV/files/patch-libev_ev.c
new file mode 100644
index 000000000000..ab255b4ae56d
--- /dev/null
+++ b/devel/p5-EV/files/patch-libev_ev.c
@@ -0,0 +1,14 @@
+--- libev/ev.c.orig 2025-07-21 10:03:33 UTC
++++ libev/ev.c
+@@ -511,7 +511,11 @@
+ #endif
+
+ #if EV_USE_INOTIFY
++# ifdef __FreeBSD__
++# include <sys/mount.h>
++# else
+ # include <sys/statfs.h>
++# endif
+ # include <sys/inotify.h>
+ /* some very old inotify.h headers don't have IN_DONT_FOLLOW */
+ # ifndef IN_DONT_FOLLOW
diff --git a/devel/p5-EV/files/patch-typemap b/devel/p5-EV/files/patch-typemap
new file mode 100644
index 000000000000..d2fd4c1b79a2
--- /dev/null
+++ b/devel/p5-EV/files/patch-typemap
@@ -0,0 +1,17 @@
+Patch from https://github.com/Perl/perl5/issues/22353#issuecomment-2198256977
+
+--- typemap.orig 2010-10-29 18:42:23 UTC
++++ typemap
+@@ -37,9 +37,9 @@ T_WATCHER
+
+ T_WATCHER
+ if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
+- && (SvSTASH (SvRV ($arg)) == stash_" . ($type =~ /ev_(\S+)/, "$1") . "
+- || sv_derived_from ($arg, \"EV::" . ($type =~ /ev_(\S+)/, ucfirst "$1") . "\"))))
+- croak (\"object is not of type EV::" . ($type =~ /ev_(\S+)/, ucfirst "$1") . "\");
++ && (SvSTASH (SvRV ($arg)) == stash_${ ($type =~ /ev_(\S+)/, \"$1") }
++ || sv_derived_from ($arg, \"EV::${ ($type =~ /ev_(\S+)/, \ucfirst "$1") }\"))))
++ croak (\"object is not of type EV::${ ($type =~ /ev_(\S+)/, \ucfirst "$1") }\");
+ $var = ($type)SvPVX (SvRV ($arg));
+
+ OUTPUT