summaryrefslogtreecommitdiffstats
path: root/perl-install/resize_fat/boot_sector.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-09 18:48:32 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-09 18:48:32 +0000
commit925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 (patch)
tree29aed7d1e75323231b3b4623d84ce3c59a148cb8 /perl-install/resize_fat/boot_sector.pm
parentc8b361905dedbe2961b4e3c1670d5028eec12807 (diff)
downloaddrakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar
drakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.gz
drakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.bz2
drakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.xz
drakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.zip
*** empty log message ***
Diffstat (limited to 'perl-install/resize_fat/boot_sector.pm')
-rw-r--r--perl-install/resize_fat/boot_sector.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/resize_fat/boot_sector.pm b/perl-install/resize_fat/boot_sector.pm
index c236b1617..cd8f52cac 100644
--- a/perl-install/resize_fat/boot_sector.pm
+++ b/perl-install/resize_fat/boot_sector.pm
@@ -64,6 +64,7 @@ sub read($) {
$fs->{fs_type} = 'FAT16';
$fs->{fs_type_size} = 16;
$fs->{fat_length} = $fs->{fat16_fat_length};
+ $resize_fat::bad_cluster_value = 0xfff7; # 2**16 - 1
} else {
$resize_fat::isFAT32 = 1;
$fs->{fs_type} = 'FAT32';
@@ -72,8 +73,8 @@ sub read($) {
$fs->{nb_root_dir_entries} = 0;
$fs->{info_offset} = $fs->{info_offset_in_sectors} * $fs->{sector_size};
+ $resize_fat::bad_cluster_value = 0xffffff7;
}
- $resize_fat::bad_cluster_value = (1 << $fs->{fs_type_size}) - 9;
$fs->{fat_offset} = $fs->{nb_reserved} * $fs->{sector_size};
$fs->{fat_size} = $fs->{fat_length} * $fs->{sector_size};
@@ -88,7 +89,7 @@ sub read($) {
$fs->{dir_entries_per_cluster} = divide($fs->{cluster_size}, psizeof($format));
- $fs->{nb_clusters} >= resize_fat::any::min_cluster_count($fs) or die "error: not enough sectors for a $fs->{fs_type}\n";
+# $fs->{nb_clusters} >= resize_fat::any::min_cluster_count($fs) or die "error: not enough sectors for a $fs->{fs_type}\n";
$fs->{nb_clusters} < resize_fat::any::max_cluster_count($fs) or die "error: too many sectors for a $fs->{fs_type}\n";
}