From bb6492e7bf3b348808cc2102c840fc91a3bff7b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 6 Jan 2000 22:48:08 +0000
Subject: no_comment

---
 perl-install/interactive.pm | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 300f64db2..4e1f9662b 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -114,6 +114,7 @@ sub ask_from_list2($$$$;$) {
 }
 sub ask_many_from_list_ref($$$$;$) {
     my ($o, $title, $message, $l, $val) = @_;
+    return 1 if @$l == 0;
     $o->ask_many_from_list_refW($title, [ deref($message) ], $l, $val);
 }
 sub ask_many_from_list($$$$;$) {
-- 
cgit v1.2.1