blob: ae821fa895cbeb5faa6fce9dd70b3ca34bf46f81 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
https://bugs.gentoo.org/959141
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
|
