summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/any.pm2
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] };