update to p5-Audio-Scan-1.13

This commit is contained in:
sthen
2026-06-15 08:59:41 +00:00
parent d5b0c67266
commit 7c913cd157
4 changed files with 8 additions and 66 deletions
+5 -4
View File
@@ -1,8 +1,9 @@
COMMENT= fast audio metadata and tag reader for Perl
DISTNAME= Audio-Scan-1.01
DISTNAME= Audio-Scan-1.13
CPAN_AUTHOR= ELBRUS
CATEGORIES= audio
REVISION= 0
# GPLv2
PERMIT_PACKAGE= Yes
@@ -10,10 +11,10 @@ PERMIT_PACKAGE= Yes
WANTLIB += c perl z
MODULES= cpan
MODPERL_REGEN_PPPORT = include/ppport.h
#MODPERL_REGEN_PPPORT = include/ppport.h
TEST_DEPENDS= devel/p5-Test-Warn
MAKE_ENV+= TEST_POD=Yes
MAKE_ENV= TEST_POD=Yes
.include <bsd.port.mk>
+2 -2
View File
@@ -1,2 +1,2 @@
SHA256 (Audio-Scan-1.01.tar.gz) = gxJyAnHHrdxLvuwzEs3divS5kKxjYgSllsB5M61sY0o=
SIZE (Audio-Scan-1.01.tar.gz) = 4827918
SHA256 (Audio-Scan-1.13.tar.gz) = +MKMY69WFexWoSW+DoRu6Cko0/esYi/EeSU9zYEIdp4=
SIZE (Audio-Scan-1.13.tar.gz) = 7908257
-59
View File
@@ -1,59 +0,0 @@
Fix build with Perl 5.42
Index: Scan.xs
--- Scan.xs.orig
+++ 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( char *foo, 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( char *foo, 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( char *foo, 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(char *foo, SV *path)
CODE:
{
char *suffix = strrchr( SvPVX(path), '.' );
@@ -322,7 +322,7 @@ OUTPUT:
RETVAL
SV *
-type_for(char *, SV *suffix)
+type_for(char *foo, SV *suffix)
CODE:
{
taghandler *hdl = NULL;
@@ -360,7 +360,7 @@ OUTPUT:
RETVAL
AV *
-extensions_for(char *, SV *type)
+extensions_for(char *foo, SV *type)
CODE:
{
int i, j;
+1 -1
View File
@@ -4,5 +4,5 @@ ${P5ARCH}/Audio/Scan.pm
${P5ARCH}/auto/
${P5ARCH}/auto/Audio/
${P5ARCH}/auto/Audio/Scan/
${P5ARCH}/auto/Audio/Scan/Scan.so
@so ${P5ARCH}/auto/Audio/Scan/Scan.so
@man man/man3p/Audio::Scan.3p