Description: Fallback to use native perl getppid() if Linux::Pid is not present
Author: Guillem Jover <guillem@debian.org>
Origin: vendor
Bug-Debian: http://bugs.debian.org/684290
Forwarded: no
Last-Update: 2014-07-04


--- libapache2-mod-perl2-2.0.8+httpd24-r1449661.orig/Apache-SizeLimit/lib/Apache/SizeLimit/Core.pm
+++ libapache2-mod-perl2-2.0.8+httpd24-r1449661/Apache-SizeLimit/lib/Apache/SizeLimit/Core.pm
@@ -139,10 +139,12 @@ BEGIN {
         *_platform_getppid = \&_perl_getppid;
     }
     elsif ($Config{'osname'} eq 'linux') {
-        _load('Linux::Pid');
-
-        *_platform_getppid = \&_linux_getppid;
-
+        if (eval { require Linux::Pid }) {
+            *_platform_getppid = \&_linux_getppid;
+        }
+        else {
+            *_platform_getppid = \&_perl_getppid;
+        }
         if (eval { require Linux::Smaps && Linux::Smaps->new($$) }) {
             $USE_SMAPS = 1;
             *_platform_check_size = \&_linux_smaps_size_check;