summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-10-15 17:21:23 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-10-15 17:21:23 +0000
commit17907ebbd3388f6773d2715a7b1335ebacde5a19 (patch)
tree20d0ac43fc2aed132ce877b4abaf34054bce3f42
parentd9595379deacc6aadf8e8049c5c01e50ff5b3dc7 (diff)
downloaddrakx-17907ebbd3388f6773d2715a7b1335ebacde5a19.tar
drakx-17907ebbd3388f6773d2715a7b1335ebacde5a19.tar.gz
drakx-17907ebbd3388f6773d2715a7b1335ebacde5a19.tar.bz2
drakx-17907ebbd3388f6773d2715a7b1335ebacde5a19.tar.xz
drakx-17907ebbd3388f6773d2715a7b1335ebacde5a19.zip
fix default value still in location|name form in case of move
-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] };