dev-perl/Audio-Scan: fix build w/ perl-5.42

Closes: https://bugs.gentoo.org/959573
Signed-off-by: Sam James <sam@gentoo.org>

2 files changed, 113 insertions, 0 deletions

diff --git a/dev-perl/Audio-Scan/Audio-Scan-1.10.0-r4.ebuild b/dev-perl/Audio-Scan/Audio-Scan-1.10.0-r4.ebuild
new file mode 100644
index 000000000000..7ed8ef42e1df
--- /dev/null
+++ b/dev-perl/Audio-Scan/Audio-Scan-1.10.0-r4.ebuild
@@ -0,0 +1,33 @@
+# Copyright 1999-2025 Gentoo Authors
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=8
+
+DIST_AUTHOR=AGRUNDMA
+DIST_VERSION=1.01
+inherit perl-module
+
+DESCRIPTION="Fast C metadata and tag reader for all common audio file formats"
+
+# License note: ambiguity: https://rt.cpan.org/Ticket/Display.html?id=132450
+# Tagged GPL-2 since this seems to be the smallest common denominator
+# Leaving the rest for upstream to sort out
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+
+BDEPEND="
+	test? (
+		dev-perl/Test-Warn
+	)
+"
+
+PATCHES=(
+	"${FILESDIR}"/${PN}-1.10.0-perl-5.42.patch
+)
+
+PERL_RM_FILES=(
+	"t/02pod.t"
+	"t/03podcoverage.t"
+	"t/04critic.t"
+)
diff --git a/dev-perl/Audio-Scan/files/Audio-Scan-1.10.0-perl-5.42.patch b/dev-perl/Audio-Scan/files/Audio-Scan-1.10.0-perl-5.42.patch
new file mode 100644
index 000000000000..1ae4c9c3063f
--- /dev/null
+++ b/dev-perl/Audio-Scan/files/Audio-Scan-1.10.0-perl-5.42.patch
@@ -0,0 +1,80 @@
+https://bugs.gentoo.org/959573
+https://rt.cpan.org/Public/Bug/Display.html?id=167903
+https://rt.cpan.org/Transaction/Display.html?id=3098149
+
+>From ced0f4272dc8f66ae6efa2e84246c00b65409c12 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni@debian.org>
+Date: Sun, 24 Aug 2025 17:10:44 +0100
+Subject: [PATCH] Fix invalid XS syntax that breaks the build with Perl 5.42
+
+Older versions of ExtUtils::ParseXS used to silently ignore parameter
+declarations that it could not parse. Newer ones (starting around Perl
+5.42) issue a syntax error ("Unparseable XSUB parameter") instead.
+
+See https://rt.cpan.org/Public/Bug/Display.html?id=162293 for a similar
+issue in another module (Crypt-SMIME), where Dave Mitchell recommends
+giving the ignored parameter a name but no type.
+---
+ Scan.xs | 12 ++++++------
+ 1 file changed, 6 insertions(+), 6 deletions(-)
+
+diff --git a/Scan.xs b/Scan.xs
+index 96e4f19..b6bfd55 100644
+--- a/Scan.xs
++++ b/Scan.xs
+@@ -214,7 +214,7 @@ _generate_hash(const char *file)
+ MODULE = Audio::Scan		PACKAGE = Audio::Scan
+ 
+ HV *
+-_scan( char *, char *suffix, PerlIO *infile, SV *path, int filter, int md5_size, int md5_offset )
++_scan( class, char *suffix, PerlIO *infile, SV *path, int filter, int md5_size, int md5_offset )
+ CODE:
+ {
+   taghandler *hdl;
+@@ -266,7 +266,7 @@ OUTPUT:
+   RETVAL
+   
+ int
+-_find_frame( char *, char *suffix, PerlIO *infile, SV *path, int offset )
++_find_frame( class, char *suffix, PerlIO *infile, SV *path, int offset )
+ CODE:
+ {
+   taghandler *hdl;
+@@ -282,7 +282,7 @@ OUTPUT:
+   RETVAL
+ 
+ HV *
+-_find_frame_return_info( char *, char *suffix, PerlIO *infile, SV *path, int offset )
++_find_frame_return_info( class, char *suffix, PerlIO *infile, SV *path, int offset )
+ CODE:
+ {
+   taghandler *hdl = _get_taghandler(suffix);
+@@ -306,7 +306,7 @@ OUTPUT:
+   RETVAL
+ 
+ int
+-is_supported(char *, SV *path)
++is_supported(class, SV *path)
+ CODE:
+ {
+   char *suffix = strrchr( SvPVX(path), '.' );
+@@ -322,7 +322,7 @@ OUTPUT:
+   RETVAL
+ 
+ SV *
+-type_for(char *, SV *suffix)
++type_for(class, SV *suffix)
+ CODE:
+ {
+   taghandler *hdl = NULL;
+@@ -360,7 +360,7 @@ OUTPUT:
+   RETVAL
+ 
+ AV *
+-extensions_for(char *, SV *type)
++extensions_for(class, SV *type)
+ CODE:
+ {
+   int i, j;
+-- 
+2.49.0