From b5226a43486fa9b591c07dd34520756898b4b1ad Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 16 May 2006 12:12:41 +0000
Subject: handle the fact that interactive_list() can return nothing

---
 rpmdrake | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/rpmdrake b/rpmdrake
index 23991f89..4aa89c0f 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -617,9 +617,11 @@ sub run_treeview_dialog {
 	    }
 	}
 	my $callback = sub { interactive_msg_(N("More information on package..."), $options->{get_info}->($_[0]), scroll => 1) };
-	$choices->[interactive_list_(N("Please choose"), N("One of the following packages is needed:"),
-				     [ map { my_fullname($_) } @$choices ], $callback)];
+	my @choices = interactive_list_(N("Please choose"), N("One of the following packages is needed:"),
+                                     [ map { my_fullname($_) } @$choices ], $callback);
+     $choices->[@choices];
     };
+
     my $closure_removal = sub {
         my @to_remove;
         $urpm->{state} = {};
-- 
cgit v1.2.1