Add patch to make Linux::Pid conditional in Apache::SizeLimit.
Thanks: Guillem Jover for the patch.
Closes: #684290
gregor herrmann
9 years ago
| 0 | Description: Fallback to use native perl getppid() if Linux::Pid is not present | |
| 1 | Author: Guillem Jover <guillem@debian.org> | |
| 2 | Origin: vendor | |
| 3 | Bug-Debian: http://bugs.debian.org/684290 | |
| 4 | Forwarded: no | |
| 5 | Last-Update: 2014-07-04 | |
| 6 | ||
| 7 | ||
| 8 | --- a/Apache-SizeLimit/lib/Apache/SizeLimit/Core.pm | |
| 9 | +++ b/Apache-SizeLimit/lib/Apache/SizeLimit/Core.pm | |
| 10 | @@ -139,10 +139,12 @@ | |
| 11 | *_platform_getppid = \&_perl_getppid; | |
| 12 | } | |
| 13 | elsif ($Config{'osname'} eq 'linux') { | |
| 14 | - _load('Linux::Pid'); | |
| 15 | - | |
| 16 | - *_platform_getppid = \&_linux_getppid; | |
| 17 | - | |
| 18 | + if (eval { require Linux::Pid }) { | |
| 19 | + *_platform_getppid = \&_linux_getppid; | |
| 20 | + } | |
| 21 | + else { | |
| 22 | + *_platform_getppid = \&_perl_getppid; | |
| 23 | + } | |
| 24 | if (eval { require Linux::Smaps && Linux::Smaps->new($$) }) { | |
| 25 | $USE_SMAPS = 1; | |
| 26 | *_platform_check_size = \&_linux_smaps_size_check; |