diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-27 21:58:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-27 21:58:56 +0000 |
| commit | 30efecf1b9172131e2d2019eca0f72dc63f44c43 (patch) | |
| tree | 20650dc9b53ec601a28cae55b2c63efe959b4d5a /perl-install | |
| parent | 1965f8ae39a379ad6b4bfc1fc79d6257c776e349 (diff) | |
| download | drakx-backup-do-not-use-30efecf1b9172131e2d2019eca0f72dc63f44c43.tar drakx-backup-do-not-use-30efecf1b9172131e2d2019eca0f72dc63f44c43.tar.gz drakx-backup-do-not-use-30efecf1b9172131e2d2019eca0f72dc63f44c43.tar.bz2 drakx-backup-do-not-use-30efecf1b9172131e2d2019eca0f72dc63f44c43.tar.xz drakx-backup-do-not-use-30efecf1b9172131e2d2019eca0f72dc63f44c43.zip | |
use function fsedit::get_hds which handles errors
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index 4ae8c3143..2a6e4c7c3 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -72,19 +72,7 @@ if ($type eq 'fileshare') { $in->exit(0); } -my $all_hds = - catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } - sub { - my $err = formatError($@); - if ($err =~ s/ask_before_blanking://) { - $in->ask_okcancel(_("Error"), -[_("I can't read your partition table, it's too corrupted for me :( -I'll try to go on blanking bad partitions"), $err]); - } else { - $in->ask_warn('', $err); - 1; - } - }; +my $all_hds = fsedit::get_hds({}, $in); $SIG{__DIE__} = sub { my $m = chomp_($_[0]); log::l("ERROR: $m") }; my $fstab = [ fsedit::get_all_fstab($all_hds) ]; |