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) ||