diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-12-13 15:56:00 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-12-13 15:56:00 +0000 |
| commit | 4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25 (patch) | |
| tree | a12104a3a9468cc42b83634feb5e6a2e72003532 /perl-install/resize_fat | |
| parent | f298cec9f7d4bb4dc1972cc737007b6da86d4cb0 (diff) | |
| download | drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.gz drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.bz2 drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.xz drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.zip | |
better english (writing style rather than spoken one)
Diffstat (limited to 'perl-install/resize_fat')
| -rw-r--r-- | perl-install/resize_fat/boot_sector.pm | 2 | ||||
| -rw-r--r-- | perl-install/resize_fat/fat.pm | 2 | ||||
| -rw-r--r-- | perl-install/resize_fat/main.pm | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/resize_fat/boot_sector.pm b/perl-install/resize_fat/boot_sector.pm index ffb1b1f34..dd09755cc 100644 --- a/perl-install/resize_fat/boot_sector.pm +++ b/perl-install/resize_fat/boot_sector.pm @@ -87,7 +87,7 @@ sub read($) { $fs->{nb_fat_entries} = divide($fs->{fat_size}, $fs->{fs_type_size} / 8); - #- - 2 because clusters 0 & 1 doesn't exist + #- - 2 because clusters 0 & 1 does not exist $fs->{nb_clusters} = divide($fs->{nb_sectors} * $fs->{sector_size} - $fs->{cluster_offset}, $fs->{cluster_size}) - 2; $fs->{dir_entries_per_cluster} = divide($fs->{cluster_size}, psizeof($format)); diff --git a/perl-install/resize_fat/fat.pm b/perl-install/resize_fat/fat.pm index c08232628..2bceb129d 100644 --- a/perl-install/resize_fat/fat.pm +++ b/perl-install/resize_fat/fat.pm @@ -30,7 +30,7 @@ sub write($) { #- allocates where all the clusters will be moved to. Clusters before cut_point #- remain in the same position, however cluster that are part of a directory are #- moved regardless (this is a mechanism to prevent data loss) (cut_point is the -#- first cluster that won't occur in the new fs) +#- first cluster that will not occur in the new fs) sub allocate_remap { my ($fs, $cut_point) = @_; my ($cluster, $new_cluster); diff --git a/perl-install/resize_fat/main.pm b/perl-install/resize_fat/main.pm index 3e82c71a3..726875837 100644 --- a/perl-install/resize_fat/main.pm +++ b/perl-install/resize_fat/main.pm @@ -71,7 +71,7 @@ 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 + #- so do not set it as DIRECTORY, it will be specially handled resize_fat::c_rewritten::set_flag($fs->{fat32_root_dir_cluster}, $resize_fat::any::FREE); } @@ -158,7 +158,7 @@ sub resize { resize_fat::boot_sector::write($fs); - $resize_fat::isFAT32 and eval { resize_fat::info_sector::write($fs) }; #- doesn't matter if this fails - its pretty useless! + $resize_fat::isFAT32 and eval { resize_fat::info_sector::write($fs) }; #- does not matter if this fails - its pretty useless! MDK::Common::System::sync(); close $fs->{fd}; |