ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/ihost-perl/plugins/perl/i-scream_top.pl
(Generate patch)

Comparing projects/cms/source/host/ihost-perl/plugins/perl/i-scream_top.pl (file contents):
Revision 1.2 by tdb, Tue Dec 18 04:07:17 2001 UTC vs.
Revision 1.3 by tdb, Tue Feb 12 17:13:52 2002 UTC

# Line 146 | Line 146 | sub include_top() {
146          
147          # get RAM slightly differently
148          my($real) = `$sysctlbin -n hw.physmem`;
149 <        my($free) = $real - `$sysctlbin -n hw.usermem`;
149 >        my($v_free_count) = `$sysctlbin -n vm.stats.vm.v_free_count`;
150 >        my($v_page_size) = `$sysctlbin -n vm.stats.vm.v_page_size`;
151 >        my($free) = $v_free_count * $v_page_size;
152          
153          # turn bytes to megabytes
154          $real = ($real / 1024) / 1024;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines