mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-07-13 03:09:51 +03:00
17 lines
804 B
Diff
17 lines
804 B
Diff
Patch-Source: https://github.com/Perl/perl5/issues/22353#issuecomment-2907796786
|
|
|
|
--- a/typemap
|
|
+++ b/typemap
|
|
@@ -37,9 +37,9 @@ T_LOOP
|
|
|
|
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+)/, \qq{$1}) }
|
|
+ || sv_derived_from ($arg, \"EV::${ ($type =~ /ev_(\S+)/, \ucfirst qq{$1}) }\"))))
|
|
+ croak (\"object is not of type EV::${ ($type =~ /ev_(\S+)/, \ucfirst qq{$1}) }\");
|
|
$var = ($type)SvPVX (SvRV ($arg));
|
|
|
|
OUTPUT
|