From 55ebe210c0f64de80f40e5bc4a89514b9a38a147 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 30 Nov 2007 14:07:56 +0000 Subject: remove unused code --- perl-install/lang.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 89d7ce5bc..785e34c63 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -558,7 +558,7 @@ my @IM_i18n_fields = ( #- XIM server; or a Qt plugin if exists) ); -my ($is_kde3, $is_kde4, $_is_gtk); +my ($is_kde3, $is_kde4); # keep the 'packages' field in sync with share/rpmsrate: my %IM_config = @@ -735,7 +735,6 @@ sub IM2packages { my @sessions = any::sessions(); $is_kde3 = member('KDE', @sessions) || 1; $is_kde4 = member('KDE4', @sessions); - $_is_gtk = any { !/KDE/i } @sessions; my $per_lang = $IM_config{$locale->{IM}}{packages} || {}; my $lang = analyse_locale_name($locale->{lang})->{main}; my $packages = $per_lang->{$lang} || $per_lang->{generic}; -- cgit v1.2.1