From a50a776121eeeced706c65450db1242de24ee4db Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 10 Oct 2001 22:25:12 +0000
Subject: normalize the default type entry ("entry")

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

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

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index b6c93b8e7..931ad9e30 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -262,6 +262,8 @@ sub ask_from_normalize {
 	} elsif ($e->{type} eq 'label' || !ref($e->{val})) {
 	    $e->{type} = 'label';
 	    $e->{val} = \ (my $v = $e->{val}) if !ref($e->{val});
+	} else {
+	    $e->{type} ||= 'entry';
 	}
 	$e->{disabled} ||= sub { 0 };
     }
-- 
cgit v1.2.1