diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-09 12:46:28 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-09 12:46:28 +0000 |
commit | 870d622c6e3ed5d9a81c84e3f3d0fc287733472f (patch) | |
tree | 89cfcbd0e2a57404a13624031072d49060a75bfa /perl-install/resize_fat/info_sector.pm | |
parent | fc479b2a46849ffe42eb17a3162a38e27900fe93 (diff) | |
download | drakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.tar drakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.tar.gz drakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.tar.bz2 drakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.tar.xz drakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.zip |
no_comment
Diffstat (limited to 'perl-install/resize_fat/info_sector.pm')
-rw-r--r-- | perl-install/resize_fat/info_sector.pm | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/perl-install/resize_fat/info_sector.pm b/perl-install/resize_fat/info_sector.pm deleted file mode 100644 index 3a6f7cfed..000000000 --- a/perl-install/resize_fat/info_sector.pm +++ /dev/null @@ -1,36 +0,0 @@ -package resize_fat::info_sector; - -use diagnostics; -use strict; - -use common qw(:system); -use resize_fat::io; - -my $format = "a484 I I I a16"; -my @fields = ( - 'unused', - 'signature', #- should be 0x61417272 - 'free_clusters', #- -1 for unknown - 'next_cluster', #- most recently allocated cluster - 'unused2', -); - -1; - - -sub read($) { - my ($fs) = @_; - my $info = resize_fat::io::read($fs, $fs->{info_offset}, psizeof($format)); - @{$fs->{info_sector}}{@fields} = unpack $format, $info; - $fs->{info_sector}{signature} == 0x61417272 or die "Invalid information sector signature\n"; -} - -sub write($) { - my ($fs) = @_; - $fs->{info_sector}{free_clusters} = $fs->{clusters}->{count}->{free}; - $fs->{info_sector}{next_cluster} = 2; - - my $info = pack $format, @{$fs->{info_sector}}{@fields}; - - resize_fat::io::write($fs, $fs->{info_offset}, psizeof($format), $info); -} |