From ac3aa0b57d8a886c74ca350a18bc0408fa291646 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 29 Jun 2004 03:28:23 +0000 Subject: unselect uim since mdk10 package of uim IM break first time wizard when selecting english --- globetrotter/make_live | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/globetrotter/make_live b/globetrotter/make_live index f2d5f0299..00c560c78 100755 --- a/globetrotter/make_live +++ b/globetrotter/make_live @@ -237,12 +237,18 @@ sub installPackages() { pkgs::setSelectedFromCompssList($o->{packages}, \%compssUsersChoice, 4, 0); + my $unselect = sub { + my ($pkg) = @_; + my $p = pkgs::packageByName($o->{packages}, $pkg); + pkgs::unselectPackage($o->{packages}, $p) if $p; + }; + # unselect some packages whose services fsck up the box and whose services are not enabled by appropriate tools: # (shorewall must be deselected before iptables is) - foreach (qw(at hpoj shorewall iptables ntp tmdns zcip )) { - my $p = pkgs::packageByName($o->{packages}, $_); - pkgs::unselectPackage($o->{packages}, $p) if $p; - } + $unselect->($_) foreach qw(at hpoj shorewall iptables ntp tmdns zcip ); + + # unselect uim since uim IM break first time wizard when selecting english: + $unselect->($_) foreach qw(uim-applet uim libuim0); my @toInstall = pkgs::packagesToInstall($o->{packages}); local $ENV{DURING_INSTALL} = 1; -- cgit v1.2.1