diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-05 16:45:20 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-05 16:45:20 +0000 |
commit | 9ff7de045d43481f087f30db037992341c09680a (patch) | |
tree | f4f18b1b772b9d0635af08f41ae90261925c7ac4 /perl-install/install_any.pm | |
parent | 350a90a90a0bafcc964e4b3556238660b134fc4c (diff) | |
download | drakx-backup-do-not-use-9ff7de045d43481f087f30db037992341c09680a.tar drakx-backup-do-not-use-9ff7de045d43481f087f30db037992341c09680a.tar.gz drakx-backup-do-not-use-9ff7de045d43481f087f30db037992341c09680a.tar.bz2 drakx-backup-do-not-use-9ff7de045d43481f087f30db037992341c09680a.tar.xz drakx-backup-do-not-use-9ff7de045d43481f087f30db037992341c09680a.zip |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r-- | perl-install/install_any.pm | 8 |
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"; } |