From 4710960f1314ec790ea876f0e50250cac59e089c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Sep 1999 14:49:36 +0000
Subject: no_comment

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

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

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 4ffb44d71..debbb0aba 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -124,6 +124,8 @@ sub ask_from_entries($$$$;$%) {
 #- if you pass a hash with a field hidden -> emulate stty -echo
 sub ask_from_entries_ref($$$$;$%) {
     my ($o, $title, $message, $l, $val, %callback) = @_;
+
+    return unless @$l;
     
     $message = ref $message ? $message : [ $message ];
 
-- 
cgit v1.2.1