From 18011f2e9d699e37c6da8bec2d02de2b84a96a85 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Mar 2000 14:35:23 +0000
Subject: no_comment

---
 perl-install/resize_fat/boot_sector.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/resize_fat')

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
-- 
cgit v1.2.1