Skip to content

Commit 4425ff9

Browse files
Merge pull request #109 from lohedges/fix_108
Apply patches for Perl 5.42
2 parents 158c273 + 57da950 commit 4425ff9

File tree

2 files changed

+15
-0
lines changed

2 files changed

+15
-0
lines changed

CPAN/EV-typematch.patch

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
39,43c39,41
2+
< if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
3+
< && (SvSTASH (SvRV ($arg)) == stash_" . ($type =~ /ev_(\S+)/, "$1") . "
4+
< || sv_derived_from ($arg, \"EV::" . ($type =~ /ev_(\S+)/, ucfirst "$1") . "\"))))
5+
< croak (\"object is not of type EV::" . ($type =~ /ev_(\S+)/, ucfirst "$1") . "\");
6+
< $var = ($type)SvPVX (SvRV ($arg));
7+
---
8+
> if (!(SvROK($arg) && SvOBJECT(SvRV($arg)) && sv_derived_from($arg, \"EV::Watcher\")))
9+
> croak(\"$var is not of type EV::Watcher\");
10+
> $var = ($type)SvPVX(SvRV($arg));

CPAN/buildme.sh

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -750,6 +750,11 @@ function build {
750750

751751
tar_wrapper zxf EV-4.03.tar.gz
752752
cd EV-4.03
753+
754+
if [[ "$PERL_VERSION" -ge "5.42" ]]; then
755+
patch typemap ../EV-typemap.patch || true
756+
fi
757+
753758
patch -p0 < ../EV-llvm-workaround.patch # patch to avoid LLVM bug 9891
754759
if [ "$OS" = "Darwin" ]; then
755760
if [ $PERL_58 ]; then

0 commit comments

Comments
 (0)