summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-18 14:35:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-18 14:35:42 +0000
commit875d4c7186e31c4637afc55977522727fd709a4b (patch)
treea15e7307ee50cfced306654f9233042e5409a96b
parent4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f (diff)
downloaddrakx-875d4c7186e31c4637afc55977522727fd709a4b.tar
drakx-875d4c7186e31c4637afc55977522727fd709a4b.tar.gz
drakx-875d4c7186e31c4637afc55977522727fd709a4b.tar.bz2
drakx-875d4c7186e31c4637afc55977522727fd709a4b.tar.xz
drakx-875d4c7186e31c4637afc55977522727fd709a4b.zip
fix prototype
-rw-r--r--perl-install/interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 35a83905a..b8fd188bd 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -189,7 +189,7 @@ sub ask_from_listf {
ask_from_listf_raw($o, { title => $title, messages => $message }, $f, $l, $o_def);
}
sub ask_from_listf_raw {
- my ($_o, $_common, $_f, $l, $_def) = @_;
+ my ($_o, $_common, $_f, $l, $_o_def) = @_;
@$l == 0 and die "ask_from_list: empty list\n" . backtrace();
@$l == 1 and return $l->[0];
goto &ask_from_listf_raw_no_check;