1 files changed, 58 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;