From 6b96f50fb89a473f29fc2d2d14d401d620b443f1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 15 Sep 2007 19:01:48 +0000 Subject: rename $is_kde into $is_kde3 for consistency --- perl-install/lang.pm | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 443060fa8..b8cd625ec 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -533,11 +533,11 @@ my @IM_i18n_fields = ( ); my @sessions = any::sessions(); -my $is_kde = member('KDE', @sessions); +my $is_kde3 = member('KDE', @sessions); my $is_kde4 = member('KDE', @sessions); my $is_gtk = any { !/KDE/i } @sessions; -my @scim_bridges_qt_packages = (if_($is_kde, 'scim-bridge-qt3'), if_($is_kde4, 'scim-bridge-qt4')); +my @scim_bridges_qt_packages = (if_($is_kde3, 'scim-bridge-qt3'), if_($is_kde4, 'scim-bridge-qt4')); # keep the 'packages' field in sync with share/rpmsrate: my %IM_config = @@ -618,12 +618,12 @@ my %IM_config = XMODIFIERS => '@im=SCIM', default_for_lang => 'am ja ko vi zh_CN zh_TW', packages => { - 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') ], + generic => [ qw(scim scim-m17n scim-tables), if_($is_kde3, 'scim-qtimm') ], + am => [ qw(scim scim-tables ), if_($is_kde3, 'scim-qtimm') ], + ja => [ qw(scim-anthy scim-input-pad scim-tomoe), if_($is_kde3, 'scim-qtimm') ], + ko => [ 'scim-hangul', if_($is_kde3, 'scim-qtimm') ], + vi => [ 'scim-m17n', if_($is_kde3, 'scim-qtimm') ], + zh => [ qw(scim-pinyin scim-tables scim-chewing), if_($is_kde3, 'scim-qtimm') ], }, }, @@ -649,12 +649,12 @@ my %IM_config = XMODIFIERS => '@im=SCIM', default_for_lang => 'am ja ko vi zh_CN zh_TW', packages => { - 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') ], + generic => [ qw(scim-tables-skim scim-m17n), if_($is_kde3, 'scim-qtimm') ], + am => [ 'scim-tables-skim', if_($is_kde3, 'scim-qtimm') ], + ja => [ qw(skim-scim-anthy scim-input-pad scim-tomoe), if_($is_kde3, 'scim-qtimm') ], + ko => [ 'scim-hangul-skim', if_($is_kde3, 'scim-qtimm') ], + vi => [ qw(skim scim-m17n), if_($is_kde3, 'scim-qtimm') ], + zh => [ qw(skim-scim-pinyin scim-tables-skim scim-chewing), if_($is_kde3, 'scim-qtimm') ], }, }, uim => { -- cgit v1.2.1