diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 6d482e8af..46989c40c 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -208,7 +208,11 @@ sub main { } partition_table::assign_device_numbers($_) foreach fsedit::all_hds($all_hds); } - Done($in, $all_hds) or goto &main; + return if eval { Done($in, $all_hds) }; + if (my $err = $@) { + $in->ask_warn(_("Error"), formatError($err)); + } + goto &main; } |