summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-09-05 11:24:18 +0000
committerFrancois Pons <fpons@mandriva.com>2001-09-05 11:24:18 +0000
commit099d5615b0763d1fd7ade2bd7f9a54700bd7aec5 (patch)
treeaef94a4a5f459af4ed61ad88f1603903b6142d6e /perl-install
parent40230ed137b9ad5cbf3a8a57335f93d3905d2eb2 (diff)
downloaddrakx-099d5615b0763d1fd7ade2bd7f9a54700bd7aec5.tar
drakx-099d5615b0763d1fd7ade2bd7f9a54700bd7aec5.tar.gz
drakx-099d5615b0763d1fd7ade2bd7f9a54700bd7aec5.tar.bz2
drakx-099d5615b0763d1fd7ade2bd7f9a54700bd7aec5.tar.xz
drakx-099d5615b0763d1fd7ade2bd7f9a54700bd7aec5.zip
fix bad creation of /mnt/hd for an hd installation without ramdisk.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 962e77ab0..d12abc368 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -148,10 +148,10 @@ sub write_fstab {
"$dir$_->{device}";
};
- mkdir("$prefix/" . ($_->{mntpoint} || $_->{real_mntpoint}), 0755);
- my $mntpoint = loopback::carryRootLoopback($_) ? '/initrd/loopfs' : $_->{mntpoint};
- $mntpoint ||= ${{ '/tmp/hdimage' => '/mnt/hd' }}{$_->{real_mntpoint}}; #- convert for inaccessible partition at install.
-
+ my $real_mntpoint = $_->{mntpoint} || ${{ '/tmp/hdimage' => '/mnt/hd' }}{$_->{real_mntpoint}};
+ mkdir("$prefix/$real_mntpoint", 0755);
+ my $mntpoint = loopback::carryRootLoopback($_) ? '/initrd/loopfs' : $real_mntpoint;
+
my ($freq, $passno) =
exists $_->{freq} ?
($_->{freq}, $_->{passno}) :