1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/resize_fat/info_sector.pm b/perl-install/resize_fat/info_sector.pm
index 1d9c1690a..47de2db1c 100644
--- a/perl-install/resize_fat/info_sector.pm
+++ b/perl-install/resize_fat/info_sector.pm
@@ -1,9 +1,9 @@
-package resize_fat::info_sector; # $Id$
+package resize_fat::info_sector;
 
 use diagnostics;
 use strict;
 
-use common qw(:system);
+use common;
 use resize_fat::io;
 
 #- Oops, this will be unresizable on big-endian machine. trapped by signature.
@@ -28,7 +28,7 @@ sub read($) {
 
 sub write($) {
     my ($fs) = @_;
-    $fs->{info_sector}{free_clusters} = $fs->{clusters}->{count}->{free};
+    $fs->{info_sector}{free_clusters} = $fs->{clusters}{count}{free};
     $fs->{info_sector}{next_cluster} = 2;
 
     my $info = pack $format, @{$fs->{info_sector}}{@fields};