From 25f65beed0677fa247c513705dbf538225f979c4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 19 Sep 1999 17:31:42 +0000 Subject: no_comment --- perl-install/resize_fat/any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/resize_fat/any.pm') diff --git a/perl-install/resize_fat/any.pm b/perl-install/resize_fat/any.pm index 26c98f886..6acd0b52c 100644 --- a/perl-install/resize_fat/any.pm +++ b/perl-install/resize_fat/any.pm @@ -40,7 +40,7 @@ sub min_size($) { #- moment, 2 directories are there, but that way nothing wrong can happen :) my $min_cluster_count = max(2 + $count->{used} + $count->{bad} + $count->{dirs}, min_cluster_count($fs)); - $min_cluster_count * divide($fs->{cluster_size}, $SECTORSIZE) + + $min_cluster_count * divide($fs->{cluster_size}, $SECTORSIZE) + divide($fs->{cluster_offset}, $SECTORSIZE); } #- calculates the maximum size of a partition, in physical sectors @@ -53,7 +53,7 @@ sub max_size($) { divide($fs->{cluster_offset}, $SECTORSIZE); } -#- fills in $fs->{fat_flag_map}. +#- fills in $fs->{fat_flag_map}. #- Each FAT entry is flagged as either FREE, FILE or DIRECTORY. sub flag_clusters { my ($fs) = @_; -- cgit v1.2.1