diff options
| author | Mathieu Arnold <mat@FreeBSD.org> | 2025-07-26 09:07:55 +0200 |
|---|---|---|
| committer | Mathieu Arnold <mat@FreeBSD.org> | 2025-07-26 10:36:57 +0200 |
| commit | 0713988008cc843aa766ff917c1cd04b886a6030 (patch) | |
| tree | 14427fbd922cd5eede7da81e7b9d13850102ab7d | |
| parent | databases/pgbadger: fix with Perl 5.42 + lint (diff) | |
devel/p5-EV: fix build with Perl 5.42
PR: 288020
| -rw-r--r-- | devel/p5-EV/files/patch-typemap | 17 |
1 files changed, 17 insertions, 0 deletions
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 |