Parent Directory | Revision Log | Patch
revision 39 by dpavlin, Thu Jun 14 11:56:26 2007 UTC | revision 40 by dpavlin, Fri Jun 15 20:34:04 2007 UTC | |
---|---|---|
# | Line 74 sub unit { | Line 74 sub unit { |
74 | my @units = qw/b k M G/; | my @units = qw/b k M G/; |
75 | my $o = 0; | my $o = 0; |
76 | ||
77 | while ( ( $v / 1024 ) >= 1 ) { | while ( ( $v / 10000 ) >= 1 ) { |
78 | $o++; | $o++; |
79 | $v /= 1024; | $v /= 1024; |
80 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |