summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-15 17:31:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-15 17:31:22 +0000
commit71412b3a34bbb1b5056ace130334917bfa6076be (patch)
tree5af9cdef0ea08f9bb81e1026fc1e27be7990bfb3 /perl-install/interactive.pm
parentfec9449e69b0705b7ef85d9617d36e56f66628a4 (diff)
downloaddrakx-backup-do-not-use-71412b3a34bbb1b5056ace130334917bfa6076be.tar
drakx-backup-do-not-use-71412b3a34bbb1b5056ace130334917bfa6076be.tar.gz
drakx-backup-do-not-use-71412b3a34bbb1b5056ace130334917bfa6076be.tar.bz2
drakx-backup-do-not-use-71412b3a34bbb1b5056ace130334917bfa6076be.tar.xz
drakx-backup-do-not-use-71412b3a34bbb1b5056ace130334917bfa6076be.zip
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 3b296a982..4ffb44d71 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -59,14 +59,14 @@ sub ask_okcancel($$$;$) {
sub ask_from_list_ {
my ($o, $title, $message, $l, $def) = @_;
- @$l == 0 and die;
+ @$l == 0 and die '';
@$l == 1 and return $l->[0];
goto &ask_from_list2_;
}
sub ask_from_list {
my ($o, $title, $message, $l, $def) = @_;
- @$l == 0 and die;
+ @$l == 0 and die '';
@$l == 1 and return $l->[0];
goto &ask_from_list2;
}