perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r433945 - /perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm
Date Wed, 23 Aug 2006 06:53:39 GMT
Author: pgollucci
Date: Tue Aug 22 23:53:38 2006
New Revision: 433945

URL: http://svn.apache.org/viewvc?rev=433945&view=rev
Log:
USE_SMAPS was being unconditionally overwritten by code outside
its initialization because the init code was in a BEGIN {} block.

Reported by: Simon Luff <simon@coreware.co.uk>

Modified:
    perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm

Modified: perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm
URL: http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm?rev=433945&r1=433944&r2=433945&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm (original)
+++ perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm Tue Aug 22 23:53:38 2006
@@ -28,7 +28,6 @@
 $VERSION = '0.91-dev';
 
 $REQUEST_COUNT          = 1;
-$USE_SMAPS              = 1;
 
 use constant IS_WIN32 => $Config{'osname'} eq 'MSWin32' ? 1 : 0;
 
@@ -123,6 +122,7 @@
         *_platform_getppid = \&_linux_getppid;
 
         if (eval { require Linux::Smaps } && Linux::Smaps->new($$)) {
+            $USE_SMAPS = 1;
             *_platform_check_size = \&_linux_smaps_size_check;
         }
         else {



Mime
View raw message