From 33876d96b93d796507af8dd46be3b9aba579d2b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 12 Apr 2000 23:56:21 +0000
Subject: no_comment

---
 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 55abb5b23..e09838d6b 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -93,7 +93,7 @@ sub ask_from_list_ {
 
 sub ask_from_list {
     my ($o, $title, $message, $l, $def) = @_;
-    @$l == 0 and die '';
+    @$l == 0 and die 'ask_from_list: empty list';
     @$l == 1 and return $l->[0];
     goto &ask_from_list2;
 }
-- 
cgit v1.2.1