From a273deba589e8ea78399f6641f7846624d72470c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 2 May 2016 08:28:37 +0200
Subject: detect plasma

---
 perl-install/lang.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/lang.pm')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 7deafa956..a5e12becd 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -741,6 +741,7 @@ 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;
 
@@ -970,6 +971,7 @@ sub IM2packages {
 	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};
 	my $packages = $per_lang->{$main_lang} || $per_lang->{generic};
-- 
cgit v1.2.1