From 1b731b14fc580b5b54c6dcde5748c3af25d7cb87 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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