[EMAIL PROTECTED] wrote:
Added: perl/modperl/trunk/lib/Apache/SizeLimit.pm
+ # unpack ProcessMemoryCounters structure + my ($cb, $PageFaultCount, + $PeakWorkingSetSize, $WorkingSetSize, + $QuotaPeakPagedPoolUsage, $QuotaPagedPoolUsage, + $QuotaPeakNonPagedPoolUsage, $QuotaNonPagedPoolUsage, + $PagefileUsage, $PeakPagefileUsage) + = unpack $pmem_struct, $pProcessMemoryCounters; + + # only care about peak working set size + my $size = int($PeakWorkingSetSize / 1024);
why creating 10 variables when only 1 is needed? won't this work just as well?
my $PeakWorkingSetSize = (unpack $pmem_struct, $pProcessMemoryCounters)[2];
-- __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
