From 3f5c71daa5972ab6d74921dff632984b62bebdac Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 14 Dec 2007 15:45:41 -0600 Subject: [PATCH] installer: always accept default value as valid --- Makefile.PL | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Makefile.PL b/Makefile.PL index 9898c846e5..09d39b355b 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -850,7 +850,10 @@ sub _get_value { } my $val = prompt($msg, $default); - while (exists $valid_values->{$key} and not exists $valid_values->{$key}->{$val}) { + + while (exists $valid_values->{$key} and + $val ne $default and + not exists $valid_values->{$key}->{$val}) { my $retry_msg = "Value '$val' is not a valid option.\n"; $retry_msg .= "Please enter a value"; $retry_msg .= _add_valid_values_disp($key, $valid_values); -- 2.39.5