From 27b7978b5844c7d6b090ce7a7d1578d06fed334b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 2 May 2016 08:40:45 +0200
Subject: KDE4 is dead

---
 perl-install/lang.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index d4bfbffb3..acf1d5f8b 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -740,7 +740,6 @@ XIM server; or a Qt plugin if exists)
 
 my @IM_i18n_fields = qw(XMODIFIERS XIM GTK_IM_MODULE XIM_PROGRAM QT_IM_MODULE);
 
-my ($is_kde4);
 my $is_plasma;
 
 =item my %IM_config;
@@ -862,7 +861,6 @@ my %IM_config =
        XIM_PROGRAM => 'scim-bridge',
        XMODIFIERS => '@im=SCIM',
        packages => {
-	   common => sub { if_($is_kde4, 'scim-bridge-qt4') },
            generic => sub { qw(scim-m17n scim-tables) },
            am => sub { qw(scim-tables) },
 	   ja => sub { qw(scim-anthy) },
@@ -879,7 +877,7 @@ my %IM_config =
 	XMODIFIERS => '@im=ibus',
 	default_for_lang => 'am ja ko th vi zh_CN zh_TW',
 	packages => {
-		generic => sub { qw(ibus-table ibus-m17n), if_($is_kde4, 'ibus-qt4') },
+		generic => sub { qw(ibus-table ibus-m17n) },
 		ja => sub { qw(ibus-mozc) },
 		zh => sub { qw(ibus-libpinyin ibus-chewing) },
 		ko => sub { qw(ibus-hangul) },
@@ -892,7 +890,6 @@ my %IM_config =
            XMODIFIERS => '@im=uim',
 	   langs => 'ja',
 	   packages => {
-		  common => sub { if_($is_kde4, 'uim-qt4immodule') },
 		  generic => sub { qw(uim-gtk uim) },
 	  },
           },
@@ -970,7 +967,6 @@ sub IM2packages {
     if ($locale->{IM}) {
 	require any;
 	my @sessions = any::sessions();
-	$is_kde4 = member('KDE4', @sessions);
 	$is_plasma = any { /plasma/ } @sessions;
 	my $per_lang = $IM_config{$locale->{IM}}{packages} || {};
 	my $main_lang = analyse_locale_name($locale->{lang})->{main};
-- 
cgit v1.2.1