summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorMatteo Bernardini <ponce@slackbuilds.org>2021-05-28 11:54:03 +0200
committerWilly Sudiarto Raharjo <willysr@slackbuilds.org>2021-06-01 21:46:58 +0700
commitf46bc00e4909b5867c3ad2e3e2699d35ae6de442 (patch)
treeb7571a4206725a161b552292153d2a751d28cb4b /perl
parent069fbd946c653b93632a8a9423132146e290c1cb (diff)
downloadslackbuilds-f46bc00e4909b5867c3ad2e3e2699d35ae6de442.tar.gz
perl/mod_perl: Patch for the newer perls.
Signed-off-by: Matteo Bernardini <ponce@slackbuilds.org> Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
Diffstat (limited to 'perl')
-rw-r--r--perl/mod_perl/mod_perl-2.0.11-Do-not-use-deprecated-ap_get_server_version-in-Serve.patch56
-rw-r--r--perl/mod_perl/mod_perl-2.0.11-Fix-build-with-perl-5.33.7.patch25
-rw-r--r--perl/mod_perl/mod_perl.SlackBuild18
3 files changed, 98 insertions, 1 deletions
diff --git a/perl/mod_perl/mod_perl-2.0.11-Do-not-use-deprecated-ap_get_server_version-in-Serve.patch b/perl/mod_perl/mod_perl-2.0.11-Do-not-use-deprecated-ap_get_server_version-in-Serve.patch
new file mode 100644
index 0000000000..b55ad539fc
--- /dev/null
+++ b/perl/mod_perl/mod_perl-2.0.11-Do-not-use-deprecated-ap_get_server_version-in-Serve.patch
@@ -0,0 +1,56 @@
+From e839fb0bb30327de7a1b7ca9cef7c05b4a59eae4 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Wed, 1 Jul 2020 11:38:44 +0200
+Subject: [PATCH] Do not use deprecated ap_get_server_version() in
+ Server::Status
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+It produced warnings with httpd 2.4.
+
+CPAN RT#124972
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ docs/api/Apache2/ServerUtil.pod | 3 ++-
+ lib/Apache2/Status.pm | 2 +-
+ 2 files changed, 3 insertions(+), 2 deletions(-)
+
+diff --git a/docs/api/Apache2/ServerUtil.pod b/docs/api/Apache2/ServerUtil.pod
+index 96e3a28..6828ce8 100644
+--- a/docs/api/Apache2/ServerUtil.pod
++++ b/docs/api/Apache2/ServerUtil.pod
+@@ -29,7 +29,6 @@ Apache2::ServerUtil - Perl API for Apache server record utils
+ # server build and version info:
+ $when_built = Apache2::ServerUtil::get_server_built();
+ $description = Apache2::ServerUtil::get_server_description();
+- $version = Apache2::ServerUtil::get_server_version();
+ $banner = Apache2::ServerUtil::get_server_banner();
+
+ # ServerRoot value
+@@ -365,6 +364,8 @@ Get the server version string
+
+ $version = Apache2::ServerUtil::get_server_version();
+
++This function is deprecated. Use C<get_server_banner()> instead.
++
+ =over 4
+
+ =item ret: C<$version> ( string )
+diff --git a/lib/Apache2/Status.pm b/lib/Apache2/Status.pm
+index 65c3208..ee4bb8c 100644
+--- a/lib/Apache2/Status.pm
++++ b/lib/Apache2/Status.pm
+@@ -142,7 +142,7 @@ sub handler {
+ sub header {
+ my $r = shift;
+ my $start = scalar localtime $^T;
+- my $srv = Apache2::ServerUtil::get_server_version();
++ my $srv = Apache2::ServerUtil::get_server_banner();
+ $r->content_type("text/html");
+ my $v = $^V ? sprintf "v%vd", $^V : $];
+ $r->print(<<"EOF");
+--
+2.25.4
+
diff --git a/perl/mod_perl/mod_perl-2.0.11-Fix-build-with-perl-5.33.7.patch b/perl/mod_perl/mod_perl-2.0.11-Fix-build-with-perl-5.33.7.patch
new file mode 100644
index 0000000000..5b754abaee
--- /dev/null
+++ b/perl/mod_perl/mod_perl-2.0.11-Fix-build-with-perl-5.33.7.patch
@@ -0,0 +1,25 @@
+From 916376b4559d194ca618ce52c5a937fb000350be Mon Sep 17 00:00:00 2001
+From: Steve Hay <stevehay@apache.org>
+Date: Tue, 20 Apr 2021 13:55:29 +0000
+Subject: [PATCH] Fix build for perl >= 5.33.7
+
+Patch by Leon Timmermans <fawaka@gmail.com> from https://github.com/Perl/perl5/issues/18617
+
+git-svn-id: https://svn.apache.org/repos/asf/perl/modperl/trunk@1889014 13f79535-47bb-0310-9956-ffa450edef68
+---
+ src/modules/perl/modperl_perl.c | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/src/modules/perl/modperl_perl.c b/src/modules/perl/modperl_perl.c
+index fe0f484f..9ec744f9 100644
+--- a/src/modules/perl/modperl_perl.c
++++ b/src/modules/perl/modperl_perl.c
+@@ -268,7 +268,7 @@ void modperl_hash_seed_set(pTHX)
+ #ifdef MP_NEED_HASH_SEED_FIXUP
+ if (MP_init_hash_seed_set) {
+ #if MP_PERL_VERSION_AT_LEAST(5, 17, 6)
+- memcpy(&PL_hash_seed, &MP_init_hash_seed,
++ memcpy(PL_hash_seed, &MP_init_hash_seed,
+ sizeof(PL_hash_seed) > sizeof(MP_init_hash_seed) ?
+ sizeof(MP_init_hash_seed) : sizeof(PL_hash_seed));
+ PL_hash_seed_set = MP_init_hash_seed_set;
diff --git a/perl/mod_perl/mod_perl.SlackBuild b/perl/mod_perl/mod_perl.SlackBuild
index aad0f0d67f..26985edb1e 100644
--- a/perl/mod_perl/mod_perl.SlackBuild
+++ b/perl/mod_perl/mod_perl.SlackBuild
@@ -71,7 +71,23 @@ find -L . \
-o -perm 440 -o -perm 400 \) -exec chmod 644 {} \;
# Thanks to ARCH Linux
-patch -p1 < $CWD/undefined_symbol.patch
+sed -i -e '1098,1102d' Apache-Test/lib/Apache/TestRun.pm
+sed -i '51,56c push @INC, "xs/tables/current24";' lib/ModPerl/MapUtil.pm
+sed -i -e '66d' src/modules/perl/modperl_sys.c
+
+patch -p1 < $CWD/mod_perl-2.0.11-Do-not-use-deprecated-ap_get_server_version-in-Serve.patch
+patch -p1 < $CWD/mod_perl-2.0.11-Fix-build-with-perl-5.33.7.patch
+
+# Remove failing tests, CPAN RT#118919, CPAN RT#132919
+for F in \
+ ModPerl-Registry/t/closure.t \
+ ModPerl-Registry/t/special_blocks.t \
+ t/filter/in_bbs_inject_header.t \
+ t/filter/TestFilter/in_bbs_inject_header.pm \
+; do
+ rm "$F"
+ sed -i -e '\,^'"$F"',d' MANIFEST
+done
perl \
Makefile.PL \