perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r239297 - /perl/modperl/trunk/lib/Apache2/Status.pm
Date Tue, 23 Aug 2005 02:43:21 GMT
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 {



Mime
View raw message