From 42c765cf596b5c0711b40eae22b4e1f29632f2bc Mon Sep 17 00:00:00 2001
From: Celeste <20312-Celeste@users.gitlab.alpinelinux.org>
Date: Thu, 26 Jun 2025 07:10:04 +0000
Subject: [PATCH] testing/perl-net-curl: fix build with curl 8.13.0 and above

---
 testing/perl-net-curl/APKBUILD        | 12 +++++++++++-
 testing/perl-net-curl/curl-8.13.patch | 13 +++++++++++++
 2 files changed, 24 insertions(+), 1 deletion(-)
 create mode 100644 testing/perl-net-curl/curl-8.13.patch

diff --git a/testing/perl-net-curl/APKBUILD b/testing/perl-net-curl/APKBUILD
index 8e50251f247..7a6beed6f72 100644
--- a/testing/perl-net-curl/APKBUILD
+++ b/testing/perl-net-curl/APKBUILD
@@ -13,9 +13,18 @@ license="MIT-open-group OR MPL-1.1"
 depends="perl"
 makedepends="perl-dev curl-dev"
 subpackages="$pkgname-doc"
-source="https://cpan.metacpan.org/authors/id/S/SY/SYP/Net-Curl-$pkgver.tar.gz"
+source="https://cpan.metacpan.org/authors/id/S/SY/SYP/Net-Curl-$pkgver.tar.gz
+	curl-8.13.patch
+	"
 builddir="$srcdir/$_pkgreal-$pkgver"
 
+prepare() {
+	default_prepare
+
+	# Could be the issue mentioned in https://github.com/sparky/perl-Net-Curl/issues/83#issuecomment-2874575101
+	rm -v t/old-23socket-action.t
+}
+
 build() {
 	export CFLAGS=$(perl -MConfig -E 'say $Config{ccflags}')
 	PERL_MM_USE_DEFAULT=1 perl -I. Makefile.PL \
@@ -43,4 +52,5 @@ doc() {
 
 sha512sums="
 510aaaef037d20191dd33999f7a8946ebb68d61dcac3b4858b9a98fe774ff9a2bbc78904d5a48e677761c42c167110877ffc5f21d74aee223b36ee8b02586bf7  Net-Curl-0.57.tar.gz
+8443b4696e84f5b2682f768df0bfc4154a5d89018896a2547c2db2b75da34b6fc4eb0fc5be68c4b109c117643d4574d3a3506f46bf85743238278e1c3ca818e0  curl-8.13.patch
 "
diff --git a/testing/perl-net-curl/curl-8.13.patch b/testing/perl-net-curl/curl-8.13.patch
new file mode 100644
index 00000000000..410dfc3d9a8
--- /dev/null
+++ b/testing/perl-net-curl/curl-8.13.patch
@@ -0,0 +1,13 @@
+Patch-Source: https://github.com/sparky/perl-Net-Curl/issues/83#issuecomment-2874575101
+
+--- a/Makefile.PL
++++ b/Makefile.PL
+@@ -341,7 +341,7 @@ sub get_constants_headers
+ 
+ 	my @out;
+ 	foreach my $e (sort keys %syms) {
+-		if ( $e =~ /(OBSOLETE|^CURL_DEPRECATED\z|^CURL_EXTERN|^CURL_IGNORE_DEPRECATION\z|^CURLOPTDEPRECATED\z|_LAST\z|_LASTENTRY\z|^CURL_FORMAT_OFF_T$|^CURL_ISOCPP$|^CURLOPT$)/ ) {
++		if ( $e =~ /(OBSOLETE|^CURL_DEPRECATED\z|^CURL_EXTERN|^CURL_IGNORE_DEPRECATION\z|^CURLOPTDEPRECATED\z|_LAST\z|_LASTENTRY\z|^CURL_FORMAT_OFF_T$|^CURL_ISOCPP$|^CURLOPT$|^CURL_HAS_DECLSPEC_ATTRIBUTE\z)/ ) {
+ 			next;
+ 		}
+ 		push @out, $e;