diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 17:21:23 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 17:21:23 +0000 |
| commit | 17907ebbd3388f6773d2715a7b1335ebacde5a19 (patch) | |
| tree | 20d0ac43fc2aed132ce877b4abaf34054bce3f42 /perl-install | |
| parent | d9595379deacc6aadf8e8049c5c01e50ff5b3dc7 (diff) | |
| download | drakx-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
Diffstat (limited to 'perl-install')
| -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] }; |