From 0aa7a9e98c3b51085c87aa13d61eef8e3f694626 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Tue, 14 Sep 1999 14:50:50 +0000
Subject: *** empty log message ***

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

(limited to 'perl-install/interactive.pm')

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 9e3d8b6a3..3b296a982 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -107,7 +107,7 @@ sub ask_from_entry {
     my ($o, $title, $message, $label, $def, %callback) = @_;
 
     $message = ref $message ? $message : [ $message ];
-    $o->ask_from_entries($title, $message, [ $label ], [ $def ], %callback);
+    first ($o->ask_from_entries($title, $message, [ $label ], [ $def ], %callback));
 }
 
 sub ask_from_entries($$$$;$%) {
@@ -126,11 +126,12 @@ sub ask_from_entries_ref($$$$;$%) {
     my ($o, $title, $message, $l, $val, %callback) = @_;
     
     $message = ref $message ? $message : [ $message ];
+
     my $val_hash = [ map {
 	if ((ref $_) eq "SCALAR") {
 	    { val => $_ }
 	} else {
-	    ($_->{list} && @{$_->{list}}) ?
+	    ($_->{list} && (@{$_->{list}} > 1)) ?
 	      { %$_, type => "list"} : $_;
 	}
     } @$val ];
-- 
cgit v1.2.1