diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-05-02 08:28:37 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-05-04 11:52:34 +0200 |
| commit | a273deba589e8ea78399f6641f7846624d72470c (patch) | |
| tree | 6648c2407670a8004b82a8d3d7178c389141892c /perl-install | |
| parent | 671171d1c00ad62e761b7dfcf4bd99187c01a7d4 (diff) | |
| download | drakx-a273deba589e8ea78399f6641f7846624d72470c.tar drakx-a273deba589e8ea78399f6641f7846624d72470c.tar.gz drakx-a273deba589e8ea78399f6641f7846624d72470c.tar.bz2 drakx-a273deba589e8ea78399f6641f7846624d72470c.tar.xz drakx-a273deba589e8ea78399f6641f7846624d72470c.zip | |
detect plasma
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/lang.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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}; |