From e2cc07f19011abbb3dbe6b76873eb98828cba2c8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 12 May 2003 15:52:08 +0000 Subject: have the "Ok" in ask_from__add_modify_remove return true in default mode (eg: newt) --- perl-install/interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/interactive.pm') diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index f497c438a..767b54004 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -291,7 +291,7 @@ sub ask_from__add_modify_remove { } } } N_("Add"), if_(@{$e->{list}} > 0, N_("Modify"), N_("Remove"))); $o->ask_from_({ title => $title, messages => $message, callbacks => \%callback }, \@l) or return; - return if !$continue; + return 1 if !$continue; } } } -- cgit v1.2.1