diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-09-15 18:21:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-09-15 18:21:53 +0000 |
| commit | fb9d3bf5d5522cb1ce2d237af967b7dbdf96c538 (patch) | |
| tree | 1a861728c55db5d63d43892e26f9f6044dbedfe7 | |
| parent | 79e2dc33d3a1536718e0736302015ada5f6de54b (diff) | |
| download | drakx-fb9d3bf5d5522cb1ce2d237af967b7dbdf96c538.tar drakx-fb9d3bf5d5522cb1ce2d237af967b7dbdf96c538.tar.gz drakx-fb9d3bf5d5522cb1ce2d237af967b7dbdf96c538.tar.bz2 drakx-fb9d3bf5d5522cb1ce2d237af967b7dbdf96c538.tar.xz drakx-fb9d3bf5d5522cb1ce2d237af967b7dbdf96c538.zip | |
(packages_if_desktop) introduce it
| -rw-r--r-- | perl-install/lang.pm | 5 |
1 files changed, 5 insertions, 0 deletions
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 = ( |