From 1b731b14fc580b5b54c6dcde5748c3af25d7cb87 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 8 Sep 1999 11:55:11 +0000
Subject: no_comment

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

(limited to 'perl-install')

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 44fcae50f..227361840 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -130,8 +130,9 @@ sub ask_from_entries_ref($$$$;$%) {
 	if ((ref $_) eq "SCALAR") {
 	    { val => $_ }
 	} else {
+	    print "Here", ref $_, "\n";
 	    ($_->{list} && @{$_->{list}}) ?
-	      { %{$_}, type => "list"} : $_;
+	      { %$_, type => "list"} : $_;
 	}
     } @$val ];
 
-- 
cgit v1.2.1