diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-27 22:08:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-27 22:08:01 +0000 |
| commit | d2e6bef17c3ae499c1be02e409e9fce7bb30fe19 (patch) | |
| tree | a82c26572f659bc0292a8da9fc7d1a24e771639f /perl-install/install_steps_interactive.pm | |
| parent | c0667d6fc71454925b5ae6a56477a8cc2fa76d22 (diff) | |
| download | drakx-backup-do-not-use-d2e6bef17c3ae499c1be02e409e9fce7bb30fe19.tar drakx-backup-do-not-use-d2e6bef17c3ae499c1be02e409e9fce7bb30fe19.tar.gz drakx-backup-do-not-use-d2e6bef17c3ae499c1be02e409e9fce7bb30fe19.tar.bz2 drakx-backup-do-not-use-d2e6bef17c3ae499c1be02e409e9fce7bb30fe19.tar.xz drakx-backup-do-not-use-d2e6bef17c3ae499c1be02e409e9fce7bb30fe19.zip | |
remove/simplify error hanling (most of it is moved to fsedit.pm)
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 04ec5abed..95d8a5ae5 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -360,26 +360,7 @@ sub ask_mntpoint_s { sub doPartitionDisks { my ($o) = @_; - my $warned; - install_any::getHds($o, sub { - my ($err) = @_; - $warned = 1; - if ($o->ask_yesorno(_("Error"), -_("I can't read your partition table, it's too corrupted for me :( -I can try to go on, erasing over bad partitions (ALL DATA will be lost!). -The other solution is to not allow DrakX to modify the partition table. -(the error is %s) - -Do you agree to loose all the partitions? -", $err))) { - 0; - } else { - $o->{partitioning}{readonly} = 1; - 1; - } - }) or $warned or $o->ask_warn('', -_("DiskDrake failed to read correctly the partition table. -Continue at your own risk!")); + install_any::getHds($o, $o); if (arch() =~ /ppc/ && detect_devices::get_mac_generation =~ /NewWorld/) { #- need to make bootstrap part if NewWorld machine - thx Pixel ;^) if (defined $partition_table::mac::bootstrap_part) { |