perl/apache2-mod_perl
SHA256
8
0
Fork 0
forked from pool/apache2-mod_perl
Code Pull Requests Activity

- restore process name after sv_setpv_mg() call [bsc#1091625]

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/Apache:Modules/apache2-mod_perl?expand=0&rev=68
This commit is contained in:
Petr Gajdos
2018-07-17 09:37:04 +00:00
committed by Git OBS Bridge
parent 3c1fb6a579
commit 0ce156a570
3 changed files with 29 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
apache2-mod_perl-prctl-short-name.patch Normal file
View File

@@ -0,0 +1,20 @@
Index: mod_perl-2.0.10/src/modules/perl/mod_perl.c
===================================================================
--- mod_perl-2.0.10.orig/src/modules/perl/mod_perl.c 2016-10-27 22:11:11.000000000 +0200
+++ mod_perl-2.0.10/src/modules/perl/mod_perl.c 2018-07-17 10:47:27.962807330 +0200
@@ -15,6 +15,7 @@
*/
#include "mod_perl.h"
+#include <sys/prctl.h>
/* make sure that mod_perl won't try to start itself, while it's
* already starting. If the flag's value is 1 * it's still starting,
@@ -281,6 +282,7 @@ PerlInterpreter *modperl_startup(server_
*/
PL_origalen = strlen(argv[0]) + 1;
sv_setpv_mg(get_sv("0",0), argv[0]);
+ prctl(PR_SET_NAME, (unsigned long)apr_filepath_name_get(argv[0]), 0, 0, 0);
perl_run(perl);