Author: pgollucci Date: Mon Aug 22 19:43:20 2005 New Revision: 239297 URL: http://svn.apache.org/viewcvs?rev=239297&view=rev Log: Add Kb and Mb calcutation of opsize
Modified: perl/modperl/trunk/lib/Apache2/Status.pm Modified: perl/modperl/trunk/lib/Apache2/Status.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/Status.pm?rev=239297&r1=239296&r2=239297&view=diff ============================================================================== --- perl/modperl/trunk/lib/Apache2/Status.pm (original) +++ perl/modperl/trunk/lib/Apache2/Status.pm Mon Aug 22 19:43:20 2005 @@ -556,7 +556,9 @@ my $script = $r->location; $r->print("Memory Usage for package $package\n\n"); my($subs, $opcount, $opsize) = B::TerseSize::package_size($package); - $r->print("Totals: $opsize bytes | $opcount OPs\n\n"); + my $Kb = sprintf "%.2f", $opsize / 1024; + my $Mb = sprintf "%.2f", $Kb / 1000; + $r->print("Totals: $opsize bytes, $Kb Kb, $Mb Mb | $opcount OPs\n\n"); my $nlen = 0; my @keys = map {