File tree Expand file tree Collapse file tree 2 files changed +15
-0
lines changed
Expand file tree Collapse file tree 2 files changed +15
-0
lines changed Original file line number Diff line number Diff line change 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));
Original file line number Diff line number Diff 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
You can’t perform that action at this time.
0 commit comments