From 26fcf456d56ad6395f0cabc0da7ef094c09e83cc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 2 Jan 2003 13:55:48 +0000
Subject: (ask_from__add_modify_remove): fix

---
 perl-install/interactive.pm | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'perl-install/interactive.pm')

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;
 	}
     }
 }
-- 
cgit v1.2.1