From b6956ea2b188443c2d6fa7737236e00d453110dd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 10 Sep 2002 11:46:11 +0000
Subject: set mount point for nt partitions by default

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 36b55537b..0007f7f88 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1052,6 +1052,14 @@ sub getHds {
 	}
     }
 
+    {
+	my @nt = grep { isNT($_) && isNT({ type => fsedit::typeOfPart($_->{device}) }) } @{$o->{fstab}};
+	log::l("nt parts: ", join ",", map { $_->{device} } @nt) if @nt;
+	my $i; foreach (@nt) {
+	    $_->{mntpoint} = $_->{unsafeMntpoint} = "/mnt/nt" . ($i++ ? $i : '');
+	}
+    }
+
     my @sunos = grep { isSunOS($_) && type2name($_->{type}) =~ /root/i } @{$o->{fstab}}; #- take only into account root partitions.
     if (@sunos) {
 	my $v = '';
-- 
cgit v1.2.1