[packages/tpop3d] add mod_perl type fixes

[atler]

commit cfdeb8d43e201e4d9c9bbe49a7451dfbeef49f87
Author: Jan Palus <atler at pld-linux.org>
Date:   Mon Aug 4 15:03:11 2025 +0200

    add mod_perl type fixes

 mod_perl.patch | 24 ++++++++++++++++++++++++
 tpop3d.spec    |  2 ++
 2 files changed, 26 insertions(+)
---
diff --git a/tpop3d.spec b/tpop3d.spec
index 5452162..4506eae 100644
--- a/tpop3d.spec
+++ b/tpop3d.spec
@@ -30,6 +30,7 @@ Patch2:		%{name}-sql-getpwuid-optional.patch
 Patch3:		%{name}-lib.patch
 Patch4:		%{name}-ssl-chain.patch
 Patch5:		%{name}-bug-33413.patch
+Patch6:		mod_perl.patch
 URL:		https://savannah.nongnu.org/projects/tpop3d
 BuildRequires:	autoconf
 BuildRequires:	automake
@@ -120,6 +121,7 @@ pomiędzy sesjami.
 %patch -P3 -p1
 %patch -P4 -p1
 %patch -P5 -p1
+%patch -P6 -p1
 
 %build
 %{__aclocal}
diff --git a/mod_perl.patch b/mod_perl.patch
new file mode 100644
index 0000000..ef197f8
--- /dev/null
+++ b/mod_perl.patch
@@ -0,0 +1,24 @@
+--- tpop3d-1.5.5/auth_perl.c.orig	2008-03-31 21:37:15.000000000 +0200
++++ tpop3d-1.5.5/auth_perl.c	2025-08-04 14:56:59.583306884 +0200
+@@ -70,9 +70,9 @@
+ 
+ /* xs_init:
+  * Start up XS code in perl. */
+-extern void boot_DynaLoader(CV *cv);
++extern void boot_DynaLoader(pTHX_ CV *cv);
+ 
+-void xs_init(void) {
++void xs_init(pTHX) {
+     char *file = __FILE__;
+     newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
+     newXS("TPOP3D::log_print", xs_log_print, file);
+--- tpop3d-1.5.5/auth_perl.h.orig	2008-03-31 21:37:15.000000000 +0200
++++ tpop3d-1.5.5/auth_perl.h	2025-08-04 14:59:21.817495692 +0200
+@@ -31,7 +31,6 @@
+ #include "stringmap.h"
+ 
+ /* auth_perl.c */
+-void xs_init(void);
+ int auth_perl_init(void);
+ void auth_perl_close(void);
+ void auth_perl_postfork(void);
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/tpop3d.git/commitdiff/cfdeb8d43e201e4d9c9bbe49a7451dfbeef49f87