diff options
| -rw-r--r-- | perl-install/any.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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] }; |