summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-05 16:45:20 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-05 16:45:20 +0000
commit9ff7de045d43481f087f30db037992341c09680a (patch)
treef4f18b1b772b9d0635af08f41ae90261925c7ac4 /perl-install/install_any.pm
parent350a90a90a0bafcc964e4b3556238660b134fc4c (diff)
downloaddrakx-9ff7de045d43481f087f30db037992341c09680a.tar
drakx-9ff7de045d43481f087f30db037992341c09680a.tar.gz
drakx-9ff7de045d43481f087f30db037992341c09680a.tar.bz2
drakx-9ff7de045d43481f087f30db037992341c09680a.tar.xz
drakx-9ff7de045d43481f087f30db037992341c09680a.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 06c135288..654e703b3 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -17,6 +17,7 @@ use common qw(:common :system :functional :file);
use commands;
use run_program;
use partition_table qw(:types);
+use partition_table_raw;
use devices;
use fsedit;
use network;
@@ -164,8 +165,11 @@ sub getHds {
my ($o) = @_;
my ($ok, $ok2) = 1;
+ my @drives = detect_devices::hds();
+ add2hash_($o->{partitioning}, { readonly => 1 }) if partition_table_raw::typeOfMBR($drives[0]{device}) eq 'system_commander';
+
getHds:
- $o->{hds} = catch_cdie { fsedit::hds([ detect_devices::hds() ], $o->{partitioning}) }
+ $o->{hds} = catch_cdie { fsedit::hds(\@drives, $o->{partitioning}) }
sub {
$o->ask_warn(_("Error"),
_("I can't read your partition table, it's too corrupted for me :(
@@ -415,6 +419,6 @@ sub pkg_install {
}
sub fsck_option() {
- my $y = $::o->{security} < 4 && $::beginner && "-y ";
+ my $y = $::o->{security} < 3 && $::beginner && "-y ";
substInFile { s/^(\s*fsckoptions=)(-y )?/$1$y/ } "$::o->{prefix}/etc/rc.d/rc.sysinit";
}