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 <[EMAIL PROTECTED]>
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 {
