diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-02 13:55:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-02 13:55:48 +0000 |
| commit | 26fcf456d56ad6395f0cabc0da7ef094c09e83cc (patch) | |
| tree | fce998666f470ac7ec7079d0743986fb1af14477 /perl-install/interactive.pm | |
| parent | a3f3acc9299043f6c541d17acb0f468a12614349 (diff) | |
| download | drakx-backup-do-not-use-26fcf456d56ad6395f0cabc0da7ef094c09e83cc.tar drakx-backup-do-not-use-26fcf456d56ad6395f0cabc0da7ef094c09e83cc.tar.gz drakx-backup-do-not-use-26fcf456d56ad6395f0cabc0da7ef094c09e83cc.tar.bz2 drakx-backup-do-not-use-26fcf456d56ad6395f0cabc0da7ef094c09e83cc.tar.xz drakx-backup-do-not-use-26fcf456d56ad6395f0cabc0da7ef094c09e83cc.zip | |
(ask_from__add_modify_remove): fix
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index a99627309..7f5a93934 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -264,13 +264,10 @@ sub ask_from__add_modify_remove { while (1) { my $c; my @l = (@$l, - map { my $s = $_; { val => translate($_), clicked_may_quit => sub { $c = $s; 1 } } } - N_("Add"), if_(@{$e->{list}} > 0, N_("Modify"), N_("Remove"))); - $o->ask_from_({ title => $title, messages => $message, callbacks => \%callback }, \@l); - - return 1 if $c eq 'Done'; - - $callback{$c}->($chosen_element); + map { my $s = $_; { val => translate($_), clicked_may_quit => sub { $callback{$s}->($chosen_element); $c = 1 } } } + N_("Add"), if_(@{$e->{list}} > 0, N_("Modify"), N_("Remove"))); + $o->ask_from_({ title => $title, messages => $message, callbacks => \%callback }, \@l) or return; + return if !$c; } } } |