diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-09-15 18:56:31 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-09-15 18:56:31 +0000 |
commit | 07b0ec7036069e30515cf6a6f2b02902926df186 (patch) | |
tree | b4ce77ac145b02049604e3e03f7b57cc393b8933 /perl-install | |
parent | 471c6a867e0497307b07354209fbc1344c7dd89e (diff) | |
download | drakx-backup-do-not-use-07b0ec7036069e30515cf6a6f2b02902926df186.tar drakx-backup-do-not-use-07b0ec7036069e30515cf6a6f2b02902926df186.tar.gz drakx-backup-do-not-use-07b0ec7036069e30515cf6a6f2b02902926df186.tar.bz2 drakx-backup-do-not-use-07b0ec7036069e30515cf6a6f2b02902926df186.tar.xz drakx-backup-do-not-use-07b0ec7036069e30515cf6a6f2b02902926df186.zip |
switch from strings listing packages to real package lists
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/lang.pm | 52 |
1 files changed, 24 insertions, 28 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 039731813..c3767ad33 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -536,11 +536,6 @@ my @sessions = any::sessions(); my $is_kde = member('KDE', @sessions); my $is_gtk = any { !/KDE/i } @sessions; -sub packages_if_desktop { - my ($packages, $cdt, $extra_pkg) = @_; - join(' ', $packages, if_($cdt, $extra_pkg)); -} - # keep the 'packages' field in sync with share/rpmsrate: my %IM_config = ( @@ -565,7 +560,7 @@ my %IM_config = 'zh_HK' => 'chinput -big5', 'zh_TW' => 'chinput -big5', }, - packages => { generic => 'miniChinput' }, + packages => { generic => [ 'miniChinput' ] }, }, fcitx => { GTK_IM_MODULE => 'xim', @@ -595,7 +590,7 @@ my %IM_config = XIM => 'kinput2', XIM_PROGRAM => 'kinput2', XMODIFIERS => '@im=kinput2', - packages => { generic => 'kinput2-wnn' }, + packages => { generic => [ 'kinput2-wnn' ] }, }, nabi => { GTK_IM_MODULE => 'xim', @@ -611,7 +606,7 @@ my %IM_config = XIM => 'oxim', XIM_PROGRAM => 'oxim', XMODIFIERS => '@im=oxim', # '@im=SCIM' is broken for now - packages => { generic => 'oxim' }, + packages => { generic => [ 'oxim' ] }, }, 'scim' => { GTK_IM_MODULE => 'scim', @@ -620,12 +615,12 @@ my %IM_config = XMODIFIERS => '@im=SCIM', default_for_lang => 'am ja ko vi zh_CN zh_TW', packages => { - generic => packages_if_desktop('scim scim-m17n scim-tables', $is_kde, 'scim-qtimm'), - am => packages_if_desktop('scim scim-tables ', $is_kde, 'scim-qtimm'), - ja => packages_if_desktop('scim-anthy scim-input-pad scim-tomoe', $is_kde, 'scim-qtimm'), - ko => packages_if_desktop('scim-hangul', $is_kde, 'scim-qtimm'), - vi => packages_if_desktop('scim-m17n', $is_kde, 'scim-qtimm'), - zh => packages_if_desktop('scim-pinyin scim-tables scim-chewing', $is_kde, 'scim-qtimm'), + generic => [ qw(scim scim-m17n scim-tables), if_($is_kde, 'scim-qtimm') ], + am => [ qw(scim scim-tables ), if_($is_kde, 'scim-qtimm') ], + ja => [ qw(scim-anthy scim-input-pad scim-tomoe), if_($is_kde, 'scim-qtimm') ], + ko => [ 'scim-hangul', if_($is_kde, 'scim-qtimm') ], + vi => [ 'scim-m17n', if_($is_kde, 'scim-qtimm') ], + zh => [ qw(scim-pinyin scim-tables scim-chewing), if_($is_kde, 'scim-qtimm') ], }, }, @@ -636,12 +631,12 @@ my %IM_config = XMODIFIERS => '@im=SCIM', default_for_lang => 'am ja ko vi zh_CN zh_TW', packages => { - generic => packages_if_desktop('scim-m17n scim-tables', $is_kde, 'scim-bridge-qt3'), - am => packages_if_desktop('scim-tables', $is_kde, 'scim-bridge-qt3'), - ja => packages_if_desktop('scim-anthy scim-input-pad scim-tomoe', $is_kde, 'scim-bridge-qt3'), - ko => packages_if_desktop('scim-hangul', $is_kde, 'scim-bridge-qt3'), - vi => packages_if_desktop('scim-m17n', $is_kde, 'scim-bridge-qt3'), - zh => packages_if_desktop('scim-pinyin scim-tables scim-chewing', $is_kde, 'scim-bridge-qt3'), + generic => [ qw(scim-m17n scim-tables), if_($is_kde, 'scim-bridge-qt3') ], + am => [ 'scim-tables', if_($is_kde, 'scim-bridge-qt3') ], + ja => [ qw(scim-anthy scim-input-pad scim-tomoe), if_($is_kde, 'scim-bridge-qt3') ], + ko => [ 'scim-hangul', if_($is_kde, 'scim-bridge-qt3') ], + vi => [ 'scim-m17n', if_($is_kde, 'scim-bridge-qt3') ], + zh => [ qw(scim-pinyin scim-tables scim-chewing), if_($is_kde, 'scim-bridge-qt3') ], }, }, skim => { @@ -651,12 +646,12 @@ my %IM_config = XMODIFIERS => '@im=SCIM', default_for_lang => 'am ja ko vi zh_CN zh_TW', packages => { - generic => packages_if_desktop('scim-tables-skim scim-m17n', $is_kde, 'scim-qtimm'), - am => packages_if_desktop('scim-tables-skim', $is_kde, 'scim-qtimm'), - ja => packages_if_desktop('skim-scim-anthy scim-input-pad scim-tomoe', $is_kde, 'scim-qtimm'), - ko => packages_if_desktop('scim-hangul-skim', $is_kde, 'scim-qtimm'), - vi => packages_if_desktop('skim scim-m17n', $is_kde, 'scim-qtimm'), - zh => packages_if_desktop('skim-scim-pinyin scim-tables-skim scim-chewing', $is_kde, 'scim-qtimm'), + generic => [ qw(scim-tables-skim scim-m17n), if_($is_kde, 'scim-qtimm') ], + am => [ 'scim-tables-skim', if_($is_kde, 'scim-qtimm') ], + ja => [ qw(skim-scim-anthy scim-input-pad scim-tomoe), if_($is_kde, 'scim-qtimm') ], + ko => [ 'scim-hangul-skim', if_($is_kde, 'scim-qtimm') ], + vi => [ qw(skim scim-m17n), if_($is_kde, 'scim-qtimm') ], + zh => [ qw(skim-scim-pinyin scim-tables-skim scim-chewing), if_($is_kde, 'scim-qtimm') ], }, }, uim => { @@ -665,7 +660,7 @@ my %IM_config = XIM => 'uim', XIM_PROGRAM => 'uim-xim', XMODIFIERS => '@im=uim', - packages => { generic => 'uim-gtk uim' }, + packages => { generic => [ qw(uim-gtk uim) ] }, }, xcin => { XIM => 'xcin', @@ -723,7 +718,8 @@ sub IM2packages { if ($locale->{IM}) { my $per_lang = $IM_config{$locale->{IM}}{packages} || {}; my $lang = analyse_locale_name($locale->{lang})->{main}; - split(' ', $per_lang->{$lang} || $per_lang->{generic} || $locale->{IM}); + my $packages = $per_lang->{$lang} || $per_lang->{generic}; + $packages ? @$packages : $locale->{IM}; } else { () } } |