diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-23 13:01:55 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-23 13:01:55 +0000 |
| commit | 673787cbdab4a47b0b3cb987866c57704d7bdee9 (patch) | |
| tree | 32255ffefd59a78b5e798e18a4f790b032449c1b /perl-install/resize_fat/any.pm | |
| parent | 57ea24fde5f61bb54bee187847f1119b5c79f9f3 (diff) | |
| download | drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.tar drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.tar.gz drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.tar.bz2 drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.tar.xz drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.zip | |
no_comment
Diffstat (limited to 'perl-install/resize_fat/any.pm')
| -rw-r--r-- | perl-install/resize_fat/any.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/resize_fat/any.pm b/perl-install/resize_fat/any.pm index 8c57eb6b0..e4747dc87 100644 --- a/perl-install/resize_fat/any.pm +++ b/perl-install/resize_fat/any.pm @@ -33,7 +33,7 @@ sub max_cluster_count($) { # calculates the minimum size of a partition, in physical sectors sub min_size($) { my ($fs) = @_; - my $count = $fs->{clusters}->{count}; + my $count = $fs->{clusters}{count}; # directories are both in `used' and `dirs', so are counted twice # It's done on purpose since we're moving all directories. So at the worse @@ -71,12 +71,12 @@ sub flag_clusters { for (; !resize_fat::fat::is_eof($cluster); $cluster = resize_fat::fat::next($fs, $cluster)) { $cluster == 0 and die "Bad FAT: unterminated chain for $entry->{name}\n"; - $fs->{fat_flag_map}->[$cluster] and die "Bad FAT: cluster $cluster is cross-linked for $entry->{name}\n"; - $fs->{fat_flag_map}->[$cluster] = $type; - $fs->{clusters}->{count}->{dirs}++ if $type == $DIRECTORY; + $fs->{fat_flag_map}[$cluster] and die "Bad FAT: cluster $cluster is cross-linked for $entry->{name}\n"; + $fs->{fat_flag_map}[$cluster] = $type; + $fs->{clusters}{count}{dirs}++ if $type == $DIRECTORY; } }; $fs->{fat_flag_map} = [ ($FREE) x ($fs->{nb_clusters} + 2) ]; - $fs->{clusters}->{count}->{dirs} = 0; + $fs->{clusters}{count}{dirs} = 0; resize_fat::directory::traverse_all($fs, $f); } |