From 099d5615b0763d1fd7ade2bd7f9a54700bd7aec5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 5 Sep 2001 11:24:18 +0000
Subject: fix bad creation of /mnt/hd for an hd installation without ramdisk.

---
 perl-install/fs.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/fs.pm')

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}) :
-- 
cgit v1.2.1