diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-08-21 00:53:06 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-08-21 00:53:06 +0000 |
commit | 69ea16738944c7cded2bb5d1f2524a01ce78083f (patch) | |
tree | c99608ee8c978edf96e637008504ff0bde78b649 /perl-install | |
parent | f261a1bfc75de53582a15c48f5f7df8d59ce0d95 (diff) | |
download | drakx-69ea16738944c7cded2bb5d1f2524a01ce78083f.tar drakx-69ea16738944c7cded2bb5d1f2524a01ce78083f.tar.gz drakx-69ea16738944c7cded2bb5d1f2524a01ce78083f.tar.bz2 drakx-69ea16738944c7cded2bb5d1f2524a01ce78083f.tar.xz drakx-69ea16738944c7cded2bb5d1f2524a01ce78083f.zip |
simplify
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/fsedit.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 897b387bb..e583645dc 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -569,7 +569,7 @@ sub allocatePartitions { my $part; while (suggest_part($part = { start => $start, size => 0, maxsize => $size, rootDevice => $dev }, $all_hds, $to_add)) { - my $hd = fsedit::part2hd($part, $all_hds); + my $hd = part2hd($part, $all_hds); add($hd, $part, $all_hds, {}); $size -= $part->{size} + $part->{start} - $start; $start = $part->{start} + $part->{size}; @@ -579,7 +579,7 @@ sub allocatePartitions { sub auto_allocate { my ($all_hds, $o_suggestions) = @_; - my $before = listlength(fsedit::get_all_fstab($all_hds)); + my $before = listlength(get_all_fstab($all_hds)); my $suggestions = $o_suggestions || $suggestions{simple}; allocatePartitions($all_hds, $suggestions); @@ -596,7 +596,7 @@ sub auto_allocate { partition_table::assign_device_numbers($_) foreach @{$all_hds->{hds}}; - if ($before == listlength(fsedit::get_all_fstab($all_hds))) { + if ($before == listlength(get_all_fstab($all_hds))) { # find out why auto_allocate failed if (any { !has_mntpoint($_->{mntpoint}, $all_hds) } @$suggestions) { die \N("Not enough free space for auto-allocating"); |