[MKDoc-commit] [1.6] file-size show tenth of megabyte increments
bruno at mkdoc.demon.co.uk
bruno at mkdoc.demon.co.uk
Thu Sep 29 11:56:59 BST 2005
Log Message:
-----------
[1.6] file-size show tenth of megabyte increments
Tags:
----
mkdoc-1-6
Modified Files:
--------------
mkd/flo/editor/Mixin:
file_size.pm
-------------- next part --------------
Index: file_size.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/editor/Mixin/Attic/file_size.pm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -Lflo/editor/Mixin/file_size.pm -Lflo/editor/Mixin/file_size.pm -u -r1.1.2.3 -r1.1.2.4
--- flo/editor/Mixin/file_size.pm
+++ flo/editor/Mixin/file_size.pm
@@ -69,7 +69,7 @@
my $size = $self->file_size;
if ($size > 0x100000) {
- $size = int ($size / 0x100000) . "MB";
+ $size = int (10 * $size / 0x100000) / 10 . "MB";
} elsif ($size > 0x400) {
$size = int ($size / 0x400) . "kB";
} else {
More information about the MKDoc-commit
mailing list