head	1.2;
access;
symbols
	pkgsrc-2025Q3:1.1.0.2
	pkgsrc-2025Q3-base:1.1;
locks; strict;
comment	@# @;


1.2
date	2025.09.21.06.43.06;	author wiz;	state dead;
branches;
next	1.1;
commitid	ukZdUi8ijpMJ2ybG;

1.1
date	2025.07.04.17.33.12;	author wiz;	state Exp;
branches;
next	;
commitid	wdwEWp4ihpZcbs1G;


desc
@@


1.2
log
@p5-EV: update to 4.35.

4.35 Fri 19 Sep 2025 18:44:27 CEST
        - work around yet another undocumented newly introduced breakage
          in xsubpp, apparently introduced in perl 5.42. killing off Perl
          one change at a time...
@
text
@$NetBSD: patch-typemap,v 1.1 2025/07/04 17:33:12 wiz Exp $

Fix build with perl 5.42.
https://github.com/Perl/perl5/issues/22353

--- typemap.orig	2010-10-29 18:42:23.000000000 +0000
+++ 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
@


1.1
log
@p5-EV: fix build with perl 5.42 using proposed upstream patch
@
text
@d1 1
a1 1
$NetBSD$
@