p5-*: fix build with newer ExtUtils::ParseXS

PR:	288020

5 files changed, 147 insertions, 0 deletions

diff --git a/audio/p5-Audio-Scan/files/patch-Scan.xs b/audio/p5-Audio-Scan/files/patch-Scan.xs
new file mode 100644
index 000000000000..d7371ff4eb77
--- /dev/null
+++ b/audio/p5-Audio-Scan/files/patch-Scan.xs
@@ -0,0 +1,58 @@
+Fix Unparseable XSUB parameter: 'char *' in Scan.xs, line xxx
+
+--- Scan.xs.orig	2025-07-13 08:30:15 UTC
++++ Scan.xs
+@@ -214,7 +214,7 @@ HV *
+ MODULE = Audio::Scan		PACKAGE = Audio::Scan
+ 
+ HV *
+-_scan( char *, char *suffix, PerlIO *infile, SV *path, int filter, int md5_size, int md5_offset )
++_scan( char * _unused, char *suffix, PerlIO *infile, SV *path, int filter, int md5_size, int md5_offset )
+ CODE:
+ {
+   taghandler *hdl;
+@@ -266,7 +266,7 @@ int
+   RETVAL
+   
+ int
+-_find_frame( char *, char *suffix, PerlIO *infile, SV *path, int offset )
++_find_frame( char * _unused, char *suffix, PerlIO *infile, SV *path, int offset )
+ CODE:
+ {
+   taghandler *hdl;
+@@ -282,7 +282,7 @@ HV *
+   RETVAL
+ 
+ HV *
+-_find_frame_return_info( char *, char *suffix, PerlIO *infile, SV *path, int offset )
++_find_frame_return_info( char * _unused, char *suffix, PerlIO *infile, SV *path, int offset )
+ CODE:
+ {
+   taghandler *hdl = _get_taghandler(suffix);
+@@ -306,7 +306,7 @@ int
+   RETVAL
+ 
+ int
+-is_supported(char *, SV *path)
++is_supported(char * _unused, SV *path)
+ CODE:
+ {
+   char *suffix = strrchr( SvPVX(path), '.' );
+@@ -322,7 +322,7 @@ SV *
+   RETVAL
+ 
+ SV *
+-type_for(char *, SV *suffix)
++type_for(char * _unused, SV *suffix)
+ CODE:
+ {
+   taghandler *hdl = NULL;
+@@ -360,7 +360,7 @@ AV *
+   RETVAL
+ 
+ AV *
+-extensions_for(char *, SV *type)
++extensions_for(char * _unused, SV *type)
+ CODE:
+ {
+   int i, j;
diff --git a/audio/p5-MusicBrainz-DiscID/files/patch-DiscID.xs b/audio/p5-MusicBrainz-DiscID/files/patch-DiscID.xs
new file mode 100644
index 000000000000..2d2909d74cfe
--- /dev/null
+++ b/audio/p5-MusicBrainz-DiscID/files/patch-DiscID.xs
@@ -0,0 +1,13 @@
+fix Unparseable XSUB parameter: 'offsets ...' in DiscID.xs, line 116
+
+--- DiscID.xs.orig	2025-07-13 08:36:28 UTC
++++ DiscID.xs
+@@ -113,7 +113,7 @@ int
+ ## Provides the TOC of a known CD.
+ ##
+ int
+-discid_put( disc, first_track, sectors, offsets ... )
++discid_put( disc, first_track, sectors, offsets, ... )
+   DiscId *disc
+   int first_track
+   int sectors
diff --git a/devel/p5-Inline-Tcl/files/patch-Tcl.xs b/devel/p5-Inline-Tcl/files/patch-Tcl.xs
new file mode 100644
index 000000000000..4533c470a831
--- /dev/null
+++ b/devel/p5-Inline-Tcl/files/patch-Tcl.xs
@@ -0,0 +1,13 @@
+fix Unparseable XSUB parameter: 'FNAME...' in Tcl.xs, line 113
+
+--- Tcl.xs.orig	2025-07-13 08:42:18 UTC
++++ Tcl.xs
+@@ -110,7 +110,7 @@ void
+ 	RETVAL
+ 
+ void
+-_eval_tcl_function(PKG, FNAME...)
++_eval_tcl_function(PKG, FNAME, ...)
+      char*    PKG;
+      char*    FNAME;
+   PREINIT:
diff --git a/devel/p5-Thrift-XS/files/patch-xs b/devel/p5-Thrift-XS/files/patch-xs
new file mode 100644
index 000000000000..350f5c6275d1
--- /dev/null
+++ b/devel/p5-Thrift-XS/files/patch-xs
@@ -0,0 +1,42 @@
+fix Unparseable XSUB parameter: 'SV * /*name*/' in ...
+
+--- BinaryProtocol.xs.orig	2025-07-13 08:46:14 UTC
++++ BinaryProtocol.xs
+@@ -129,7 +129,7 @@ int
+   RETVAL
+ 
+ int
+-writeFieldBegin(TBinaryProtocol *p, SV * /*name*/, int type, int id)
++writeFieldBegin(TBinaryProtocol *p, SV * _unused, int type, int id)
+ CODE:
+ {
+   DEBUG_TRACE("writeFieldBegin(type %d, id %d)\n", type, id);
+@@ -487,7 +487,7 @@ int
+   RETVAL
+ 
+ int
+-readFieldBegin(TBinaryProtocol *p, SV * /*name*/, SV *fieldtype, SV *fieldid)
++readFieldBegin(TBinaryProtocol *p, SV * _unused, SV *fieldtype, SV *fieldid)
+ CODE:
+ {
+   DEBUG_TRACE("readFieldBegin()\n");
+--- CompactProtocol.xs.orig	2025-07-13 08:46:25 UTC
++++ CompactProtocol.xs
+@@ -97,7 +97,7 @@ void
+ }
+ 
+ void
+-writeFieldBegin(TBinaryProtocol *p, SV * /*name*/, int type, int id)
++writeFieldBegin(TBinaryProtocol *p, SV * _unused, int type, int id)
+ CODE:
+ {
+   DEBUG_TRACE("writeFieldBegin()\n");
+@@ -362,7 +362,7 @@ void
+ }
+ 
+ void
+-readFieldBegin(TBinaryProtocol *p, SV * /*name*/, SV *fieldtype, SV *fieldid)
++readFieldBegin(TBinaryProtocol *p, SV * _unused, SV *fieldtype, SV *fieldid)
+ CODE:
+ {
+   DEBUG_TRACE("readFieldBegin()\n");
diff --git a/security/p5-Crypt-OpenSSL-EC/files/patch-EC.xs b/security/p5-Crypt-OpenSSL-EC/files/patch-EC.xs
new file mode 100644
index 000000000000..d290f8163edc
--- /dev/null
+++ b/security/p5-Crypt-OpenSSL-EC/files/patch-EC.xs
@@ -0,0 +1,21 @@
+fix Unparseable XSUB parameter
+
+--- EC.xs.orig	2025-07-13 08:50:06 UTC
++++ EC.xs
+@@ -348,16 +348,6 @@ EC_POINT_make_affine(const EC_GROUP *group, EC_POINT *
+ int 
+ EC_POINT_make_affine(const EC_GROUP *group, EC_POINT *point, BN_CTX *ctx)
+ 
+-#if 0
+-
+-int 
+-EC_POINTs_make_affine(const EC_GROUP *group, size_t num, EC_POINT *p[], BN_CTX *ctx)
+-
+-int 
+-EC_POINTs_mul(const EC_GROUP *group, EC_POINT *r, const BIGNUM *n, size_t num, const EC_POINT *p[], const BIGNUM *m[], BN_CTX *ctx)
+-
+-#endif
+-
+ int 
+ EC_POINT_mul(const EC_GROUP *group, EC_POINT *r, const BIGNUM *n, const EC_POINT *q, const BIGNUM *m, BN_CTX *ctx)
+