From 44b596453c50044debba901575eb015045ae845d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 5 Sep 2000 14:21:48 +0000 Subject: no_comment --- perl-install/install_any.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 534a24b8c..6d1aaa803 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -622,7 +622,7 @@ sub suggest_mount_points { ); foreach my $part (@parts) { - $part->{mntpoint} and next; #- if already found via an fstab + $part->{mntpoint} && !$part->{unsafeMntpoint} and next; #- if already found via an fstab my $handle = any::inspect($part, $prefix) or return; my $d = $handle->{dir}; @@ -631,7 +631,7 @@ sub suggest_mount_points { $mnt ||= (grep { -d $_ && (stat($_))[4] >= 500 && -e "$_/.bashrc" } glob_("$d")) ? '/home' : ''; next if $uniq && fsedit::mntpoint2part($mnt, \@parts); - $part->{mntpoint} = $mnt; + $part->{mntpoint} = $mnt; delete $part->{unsafeMntpoint}; #- try to find other mount points via fstab fs::get_mntpoints_from_fstab(\@parts, $d, $uniq) if $mnt eq '/'; @@ -695,14 +695,14 @@ sub getHds { } else { my %w; foreach (@win) { my $v = $w{$_->{device_windobe}}++; - $_->{mntpoint} = "/mnt/win_" . lc($_->{device_windobe}) . ($v ? $v+1 : ''); #- lc cuz of StartOffice(!) cf dadou + $_->{mntpoint} = $_->{unsafeMntpoint} = "/mnt/win_" . lc($_->{device_windobe}) . ($v ? $v+1 : ''); #- lc cuz of StartOffice(!) cf dadou } } my @sunos = grep { isSunOS($_) && type2name($_->{type}) =~ /root/i } @{$o->{fstab}}; #- take only into account root partitions. if (@sunos) { my $v = ''; - map { $_->{mntpoint} = "/mnt/sunos" . ($v && ++$v) } @sunos; + map { $_->{mntpoint} = $_->{unsafeMntpoint} = "/mnt/sunos" . ($v && ++$v) } @sunos; } #- a good job is to mount SunOS root partition, and to use mount point described here in /etc/vfstab. -- cgit v1.2.1