diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-10 13:03:27 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-10 13:03:27 +0000 |
| commit | eaf1f7e94354b3bf37db6864de8364ffbda223f7 (patch) | |
| tree | 05731f231be1d45508a726543a7f01226dacd0b1 /perl-install/resize_fat/main.pm | |
| parent | 5e3f79e9a036b95eb9508746a5e47acda54586b0 (diff) | |
| download | drakx-eaf1f7e94354b3bf37db6864de8364ffbda223f7.tar drakx-eaf1f7e94354b3bf37db6864de8364ffbda223f7.tar.gz drakx-eaf1f7e94354b3bf37db6864de8364ffbda223f7.tar.bz2 drakx-eaf1f7e94354b3bf37db6864de8364ffbda223f7.tar.xz drakx-eaf1f7e94354b3bf37db6864de8364ffbda223f7.zip | |
no_comment
Diffstat (limited to 'perl-install/resize_fat/main.pm')
| -rw-r--r-- | perl-install/resize_fat/main.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/resize_fat/main.pm b/perl-install/resize_fat/main.pm index 1e5ac62be..762d18bca 100644 --- a/perl-install/resize_fat/main.pm +++ b/perl-install/resize_fat/main.pm @@ -64,7 +64,7 @@ sub copy_clusters { } }; for (; $cluster < $fs->{nb_clusters} + 2; $cluster++) { - $fs->{fat_flag_map}[$cluster] == $resize_fat::any::FILE or next; + resize_fat::c_rewritten::flag($cluster) == $resize_fat::any::FILE or next; push @buffer, $fs->{fat_remap}[$cluster], resize_fat::io::read_cluster($fs, $cluster); @buffer > 50 and &$flush(); } @@ -78,11 +78,11 @@ sub construct_dir_tree { if ($resize_fat::isFAT32) { #- fat32's root must remain in the first 64k clusters #- so don't set it as DIRECTORY, it will be specially handled - $fs->{fat_flag_map}[$fs->{fat32_root_dir_cluster}] = $resize_fat::any::FREE; + resize_fat::c_rewritten::set_flag($fs->{fat32_root_dir_cluster}, $resize_fat::any::FREE); } for (my $cluster = 2; $cluster < $fs->{nb_clusters} + 2; $cluster++) { - $fs->{fat_flag_map}[$cluster] == $resize_fat::any::DIRECTORY or next; + resize_fat::c_rewritten::flag($cluster) == $resize_fat::any::DIRECTORY or next; resize_fat::io::write_cluster($fs, $fs->{fat_remap}[$cluster], |