summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-30 22:54:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-30 22:54:49 +0000
commit4f85b0d92b9246709a53a85b45b15f73c7d97086 (patch)
tree0f62ec68e69cd1619f59fe77a5b572cd3805e7ec /perl-install/install_any.pm
parentc9ae469b014987aab6c76225859028ecffb77659 (diff)
downloaddrakx-4f85b0d92b9246709a53a85b45b15f73c7d97086.tar
drakx-4f85b0d92b9246709a53a85b45b15f73c7d97086.tar.gz
drakx-4f85b0d92b9246709a53a85b45b15f73c7d97086.tar.bz2
drakx-4f85b0d92b9246709a53a85b45b15f73c7d97086.tar.xz
drakx-4f85b0d92b9246709a53a85b45b15f73c7d97086.zip
add isFat_or_NTFS() and use it where possible instead of isFat() since Windows
is now using ntfs, not only Windows NT
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm12
1 files changed, 2 insertions, 10 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index b2d8ed0b7..96ee9411d 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -287,7 +287,7 @@ sub preConfigureTimezone {
$o->{timezone}{timezone} ||= timezone::bestTimezone(lang::lang2text($o->{lang}));
- my $utc = every { !isFat($_) && !isNT($_) } @{$o->{fstab}};
+ my $utc = every { !isFat_or_NTFS($_) } @{$o->{fstab}};
my $ntp = timezone::ntp_server($o->{prefix});
add2hash_($o->{timezone}, { UTC => $utc, ntp => $ntp });
}
@@ -1005,7 +1005,7 @@ sub getHds {
$o->{fstab} = [ fsedit::get_all_fstab($all_hds) ];
fs::merge_info_from_mtab($o->{fstab});
- my @win = grep { isFat($_) && isFat({ type => fsedit::typeOfPart($_->{device}) }) } @{$o->{fstab}};
+ my @win = grep { isFat_or_NTFS($_) && isFAT_or_NTFS({ type => fsedit::typeOfPart($_->{device}) }) } @{$o->{fstab}};
log::l("win parts: ", join ",", map { $_->{device} } @win) if @win;
if (@win == 1) {
#- Suggest /boot/efi on ia64.
@@ -1017,14 +1017,6 @@ 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 = '';