From 17907ebbd3388f6773d2715a7b1335ebacde5a19 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 15 Oct 2003 17:21:23 +0000 Subject: fix default value still in location|name form in case of move --- perl-install/any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/any.pm b/perl-install/any.pm index e33aeb1fb..160a58d4c 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -678,7 +678,7 @@ sub selectLanguage { my $using_images = $in->isa('interactive::gtk') && !$in->{vga16}; #- to create the default value, use the first location for that value :/ - $lang = first(lang::l2location($lang))."|$lang"; + $lang = if_(!$::move, first(lang::l2location($lang)).'|').$lang; my %name2l = map { lang::l2name($_) => $_ } lang::list_langs(); my $listval2val = sub { $_[0] =~ /\|(.*)/ ? $1 : $_[0] }; -- cgit v1.2.1