summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-08-21 00:53:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-08-21 00:53:06 +0000
commit69ea16738944c7cded2bb5d1f2524a01ce78083f (patch)
treec99608ee8c978edf96e637008504ff0bde78b649 /perl-install/fsedit.pm
parentf261a1bfc75de53582a15c48f5f7df8d59ce0d95 (diff)
downloaddrakx-backup-do-not-use-69ea16738944c7cded2bb5d1f2524a01ce78083f.tar
drakx-backup-do-not-use-69ea16738944c7cded2bb5d1f2524a01ce78083f.tar.gz
drakx-backup-do-not-use-69ea16738944c7cded2bb5d1f2524a01ce78083f.tar.bz2
drakx-backup-do-not-use-69ea16738944c7cded2bb5d1f2524a01ce78083f.tar.xz
drakx-backup-do-not-use-69ea16738944c7cded2bb5d1f2524a01ce78083f.zip
simplify
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm6
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");