diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-14 23:09:15 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-14 23:09:15 +0000 |
| commit | 773013b8e45a6916a74ea64152e51fb6cb951920 (patch) | |
| tree | 1fe018ccc96d5ddf11081ea8d57f263b3be6ae00 /perl-install/resize_fat/any.pm | |
| parent | 16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1 (diff) | |
| download | drakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.tar drakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.tar.gz drakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.tar.bz2 drakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.tar.xz drakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.zip | |
no_comment
Diffstat (limited to 'perl-install/resize_fat/any.pm')
| -rw-r--r-- | perl-install/resize_fat/any.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/resize_fat/any.pm b/perl-install/resize_fat/any.pm index ff0045d0b..252caed4b 100644 --- a/perl-install/resize_fat/any.pm +++ b/perl-install/resize_fat/any.pm @@ -54,12 +54,11 @@ sub max_size($) { divide($fs->{cluster_offset}, $SECTORSIZE); } -#- fills in $fs->{fat_flag_map}. +#- fills in fat_flag_map in c_rewritten. #- Each FAT entry is flagged as either FREE, FILE or DIRECTORY. sub flag_clusters { my ($fs) = @_; my ($cluster, $entry, $type, $nb_dirs); - my $fat_flag_map = "\0" x ($fs->{nb_clusters} + 2); my $f = sub { ($entry) = @_; @@ -71,11 +70,11 @@ sub flag_clusters { $type = $DIRECTORY; } else { return } - my $nb = resize_fat::c_rewritten::checkFat($fat_flag_map, $cluster, $type, $entry->{name}); + my $nb = resize_fat::c_rewritten::checkFat($cluster, $type, $entry->{name}); $nb_dirs += $nb if $type == $DIRECTORY; 0; }; + resize_fat::c_rewritten::allocate_fat_flag($fs->{nb_clusters} + 2); resize_fat::directory::traverse_all($fs, $f); - $fs->{fat_flag_map} = $fat_flag_map; $fs->{clusters}{count}{dirs} = $nb_dirs; } |