From fb9d3bf5d5522cb1ce2d237af967b7dbdf96c538 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Sat, 15 Sep 2007 18:21:53 +0000
Subject: (packages_if_desktop) introduce it

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 4eed2a53a..26644873a 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -536,6 +536,11 @@ my @sessions = any::sessions();
 my $is_kde = member('KDE', @sessions);
 my $is_gtj = any { !/KDE/i } @sessions;
 
+sub packages_if_desktop {
+    my ($packages, $cdt, $extra_pkg) = @_;
+    join(' ', $packages, if_($cdt, $extra_pkg));
+}
+
 # keep the 'packages' field in sync with share/rpmsrate:
 my %IM_config =
   (
-- 
cgit v1.2.1