You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2005/09/02 06:23:18 UTC
svn commit: r266258 - /perl/modperl/trunk/lib/Apache2/SizeLimit.pm
Author: pgollucci
Date: Thu Sep 1 21:23:15 2005
New Revision: 266258
URL: http://svn.apache.org/viewcvs?rev=266258&view=rev
Log:
s/my(/my (/g
Modified:
perl/modperl/trunk/lib/Apache2/SizeLimit.pm
Modified: perl/modperl/trunk/lib/Apache2/SizeLimit.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/SizeLimit.pm?rev=266258&r1=266257&r2=266258&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/SizeLimit.pm (original)
+++ perl/modperl/trunk/lib/Apache2/SizeLimit.pm Thu Sep 1 21:23:15 2005
@@ -87,7 +87,7 @@
# return process size (in KB)
sub linux_size_check {
- my($size, $resident, $share) = (0, 0, 0);
+ my ($size, $resident, $share) = (0, 0, 0);
my $file = "/proc/self/statm";
if (open my $fh, "<$file") {
@@ -159,7 +159,7 @@
$START_TIME ||= time;
- my($size, $share) = $HOW_BIG_IS_IT->();
+ my ($size, $share) = $HOW_BIG_IS_IT->();
if (($MAX_PROCESS_SIZE && $size > $MAX_PROCESS_SIZE) ||
($MIN_SHARE_SIZE && $share < $MIN_SHARE_SIZE) ||