From 875d4c7186e31c4637afc55977522727fd709a4b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 18 Nov 2004 14:35:42 +0000
Subject: fix prototype

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

(limited to 'perl-install')

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;
-- 
cgit v1.2.1