summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/hd_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-09 20:14:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-09 20:14:31 +0000
commite696409f531a91c512a4c2768accccb58ec9f278 (patch)
treed183875dd9be74b7d0f1b4363d0520ebdb8ef8d4 /perl-install/diskdrake/hd_gtk.pm
parent4a96a57480abda1195b8b67ad1a8175e7bc8ba13 (diff)
downloaddrakx-backup-do-not-use-e696409f531a91c512a4c2768accccb58ec9f278.tar
drakx-backup-do-not-use-e696409f531a91c512a4c2768accccb58ec9f278.tar.gz
drakx-backup-do-not-use-e696409f531a91c512a4c2768accccb58ec9f278.tar.bz2
drakx-backup-do-not-use-e696409f531a91c512a4c2768accccb58ec9f278.tar.xz
drakx-backup-do-not-use-e696409f531a91c512a4c2768accccb58ec9f278.zip
- handle more locally "Reload partition table" (esp. without using setstep)
=> no exception is called through gtk
Diffstat (limited to 'perl-install/diskdrake/hd_gtk.pm')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 1db5a6c6d..2c2be3faa 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -20,7 +20,7 @@ use fsedit;
use fs;
my ($width, $height, $minwidth) = (400, 50, 5);
-my ($all_hds, $in, $current_kind, $current_entry, $update_all);
+my ($all_hds, $in, $do_force_reload, $current_kind, $current_entry, $update_all);
my ($w, @notebook, $done_button);
=begin
@@ -48,7 +48,7 @@ notebook current_kind[]
=cut
sub main {
- ($in, $all_hds, my $nowizard) = @_;
+ ($in, $all_hds, my $nowizard, $do_force_reload) = @_;
@notebook = ();
@@ -115,8 +115,10 @@ sub try_ {
my $v = eval { $f->($in, @args, $all_hds) };
if (my $err = $@) {
- $err =~ /setstep/ and die '';
- $in->ask_warn(N("Error"), formatError($err));
+ $in->ask_warn(N("Error"), formatError($err));
+ }
+ if ($v eq 'force_reload') {
+ $all_hds = $do_force_reload->();
}
$current_entry = '' if !diskdrake::interactive::is_part_existing($current_entry, $all_hds);