diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-03-30 14:35:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-03-30 14:35:23 +0000 |
| commit | 18011f2e9d699e37c6da8bec2d02de2b84a96a85 (patch) | |
| tree | fdf782dfce0c929d31fe317a8b22c62518c19f56 /perl-install/resize_fat | |
| parent | ed9b8286889057ba6a4983d4afb266d74cac20f0 (diff) | |
| download | drakx-18011f2e9d699e37c6da8bec2d02de2b84a96a85.tar drakx-18011f2e9d699e37c6da8bec2d02de2b84a96a85.tar.gz drakx-18011f2e9d699e37c6da8bec2d02de2b84a96a85.tar.bz2 drakx-18011f2e9d699e37c6da8bec2d02de2b84a96a85.tar.xz drakx-18011f2e9d699e37c6da8bec2d02de2b84a96a85.zip | |
no_comment
Diffstat (limited to 'perl-install/resize_fat')
| -rw-r--r-- | perl-install/resize_fat/boot_sector.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/resize_fat/boot_sector.pm b/perl-install/resize_fat/boot_sector.pm index 0ca110af8..dbfc33830 100644 --- a/perl-install/resize_fat/boot_sector.pm +++ b/perl-install/resize_fat/boot_sector.pm @@ -3,7 +3,7 @@ package resize_fat::boot_sector; use diagnostics; use strict; -use common qw(:common :system :constant); +use common qw(:common :system :constant :functional); use resize_fat::io; use resize_fat::any; use resize_fat::directory; @@ -59,6 +59,7 @@ sub read($) { $fs->{boot_sign} == 0xAA55 or die "Invalid signature for a MS-based filesystem."; $fs->{nb_fats} == 2 or die "Weird number of FATs: $fs->{nb_fats}, not 2.", $fs->{nb_sectors} < 32 and die "Too few sectors for viable file system\n"; + $fs->{sector_size} == 512 or cdie "Strange sector_size != 512\n"; if ($fs->{fat16_fat_length}) { #- asserting FAT16, will be verified later on |