diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-03-20 15:36:31 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-03-20 15:36:31 +0000 |
| commit | 9bff16755070ddafdf3062563d76139bbdd594b3 (patch) | |
| tree | 17deef2d8bb75cb84631c9dc734a80abaf96f8a6 /perl-install/fs | |
| parent | fb10daeba26f0f91b3c086140069605728d4fb8c (diff) | |
| download | drakx-9bff16755070ddafdf3062563d76139bbdd594b3.tar drakx-9bff16755070ddafdf3062563d76139bbdd594b3.tar.gz drakx-9bff16755070ddafdf3062563d76139bbdd594b3.tar.bz2 drakx-9bff16755070ddafdf3062563d76139bbdd594b3.tar.xz drakx-9bff16755070ddafdf3062563d76139bbdd594b3.zip | |
- partitioning wizard: do not show error message in wizard mode when cancel is clicked (clean wizard window instead)
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/partitioning_wizard.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index 0a00466d3..980e2efd5 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -279,7 +279,13 @@ sub main { [ { val => \$sol, list => \@solutions, format => sub { $_[0][1] }, type => 'list' } ]); log::l("partitionWizard calling solution $sol->[1]"); my $ok = eval { $sol->[2]->() }; - $@ and $o->ask_warn('', N("Partitioning failed: %s", formatError($@))); + if (my $err = $@) { + if ($err =~ /wizcancel/) { + $_->destroy foreach $::WizardTable->get_children; + } else { + $o->ask_warn('', N("Partitioning failed: %s", formatError($err))); + } + } $ok or goto &main; 1; } |