svn commit: r111717 - /perl/modperl/trunk/lib/Apache/SizeLimit.pm

[stas]

Author: stas
Date: Mon Dec 13 07:23:42 2004
New Revision: 111717

URL: http://svn.apache.org/viewcvs?view=rev&rev=111717
Log:
why creating 10 variables when only 1 is needed

Modified:
   perl/modperl/trunk/lib/Apache/SizeLimit.pm

Modified: perl/modperl/trunk/lib/Apache/SizeLimit.pm
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache/SizeLimit.pm?view=diff&rev=111717&p1=perl/modperl/trunk/lib/Apache/SizeLimit.pm&r1=111716&p2=perl/modperl/trunk/lib/Apache/SizeLimit.pm&r2=111717
==============================================================================
--- perl/modperl/trunk/lib/Apache/SizeLimit.pm  (original)
+++ perl/modperl/trunk/lib/Apache/SizeLimit.pm  Mon Dec 13 07:23:42 2004
@@ -140,12 +140,8 @@
                                     length $pProcessMemoryCounters);
 
     # unpack ProcessMemoryCounters structure
-    my ($cb,                         $PageFaultCount,
-        $PeakWorkingSetSize,         $WorkingSetSize,
-        $QuotaPeakPagedPoolUsage,    $QuotaPagedPoolUsage,
-        $QuotaPeakNonPagedPoolUsage, $QuotaNonPagedPoolUsage,
-        $PagefileUsage,              $PeakPagefileUsage)
-        = unpack $pmem_struct, $pProcessMemoryCounters;
+    my $PeakWorkingSetSize =
+        (unpack $pmem_struct, $pProcessMemoryCounters)[2];
 
     # only care about peak working set size
     my $size = int($PeakWorkingSetSize / 1024);