summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm28
1 files 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 => {