Description: Fix typemap, Perl 5.42
Origin: https://github.com/Perl/perl5/issues/22353#issuecomment-2907796786
Bug: https://github.com/Perl/perl5/issues/22353
Forwarded: https://github.com/Perl/perl5/issues/22353
Author: Leon Timmermans 
Reviewed-by: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-11-03

--- a/typemap
+++ b/typemap
@@ -37,9 +37,9 @@
 
 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